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PREFACE 



MANUAL OBJECTIVES 

This manual describes the PASCAL language and the PASCAL debugger, 
PASDDT, as they are implemented on the TOPS-20 operating system. This 
document is designed primarily for reference; it is not a tutorial 
document. 

INTENDED AUDIENCE 

This manual is intended for readers who know the PASCAL language. The 
reader need not have a detailed understanding of the TOPS-20 operating 
system, but some familiarity with either is helpful. For information 
about the TOPS-20 operating system, refer to the documents listed 
below under "Associated Documents." For introductory information about 
the use of the PASCAL language, refer to the TOPS-20 PASCAL Primer , 
Order Number AA-L314A-TM. 

STRUCTURE OF THIS DOCUMENT 

This manual contains the following chapters and appendixes: 

• Chapter 1 provides an introduction to the use of PASCAL and 
describes the format of a PASCAL program. 

• Chapter 2 introduces basic concepts including constants, 
variables, data types, expressions, and scope. 

• Chapter 3 describes the components of an expression. 

• Chapter 4 describes the program heading and declaration 
section. 

• Chapter 5 describes the statements that perform the actions 
of the program. 

• Chapter ^ explains the use of functions and procedures, and 
summarizes the predeclared functions and procedures supplied 
with the PASCAL-20 language. 

• Chapter 7 provides detailed information on input and output 
procedures. 

• Chapter 8 describes the compiling, loading, and executing of 
PASCAL programs on the TOPS-20 operating system. 

• Chapter 9 describes the PASCAL-20 debugger, PASDDT. 



IX 



• Appendix A lists the various messages you can receive. 

• Appendix B lists the ASCII character set. 

• Appendix C presents the PASCAL-20 language in the Backus-Naur 
form and includes syntax diagrams. 

• Appendix D summarizes the extensions incorporated in the 
PASCAL-20 language. 

• Appendix E describes how PASCAL-20 complies with the standard 
proposed by the International Standardization Organization 
(ISO) . 

• Appendix F summarizes the differences between TOPS-20 PASCAL 
and VAX-11 PASCAL. 

• Appendix G describes the calling sequences and conventions 
used by PASCAL for user-defined procedures and functions. 

ASSOCIATED DOCUMENTS 

Associated manuals are: 

• TOPS-20 PASCAL Prime r 

• TOPS-20 User' s Guide 

• TOPS-20 Commands Reference Manual 

• LINK Reference Manual 

• EDIT Reference Manual 

• TV Editor Manual 



CONVENTIONS USED IN THIS DOCUMENT 

This document uses the following conventions: 

Convention Meaning 

... A horizontal ellipsis means that the 

preceding item can be repeated one or more 
times. 

A vertical ellipsis means that not all of the 
statements in a figure or example are shown. 

U ]] Double brackets in statement and declaration 

format descriptions enclose optional items, 
for exampl e: 

WRITE ( [OUTPUT,]] print-list) 

r ] Square brackets show where the syntax 

requires square brackets. This notation is 
used with arrays, for example: 

ARRAY [1.. 5] OF INTEGER 

{ } Braces enclose lists from which you must 

choose one item, for example: 



(DOWNTOf 



( RET ) This symbol indicates where you press the 

RETURN key. 

<CTRL/x> The notation <CTRL/x> indicates that you must 

press the key labeled CTRL while 

simultaneously pressing another key (x), for 
example, <CTRL/Z>. 

UPPERCASE LETTERS Uppercase letters in a command line indicate 

information that you must enter as shown. 

lowercase letters Lowercase letters in a command line indicate 

variable information you supply. 

Simple_Procedure In programming examples, all identifiers, 

(names created by the programmer) , are 
printed in lowercase letters with initial 
capi tals. 

Contrasting Colors Orange - where examples contain both user 

input and computer output, the characters you 
type are in orange; the characters printed 
on the terminal are in black. 



CHAPTER 1 
INTRODUCTION 

PASCAL-20 is an extended implementation of level 1 of the standard 
proposed for the PASCAL language by the International Standardization 
Organization (ISO). This manual describes the use of PASCAL under the 
TOPS-20 operating system. PASCAL-20 includes all the language 
elements as defined in the PASCAL User Manual and Report by Jensen and 
Wirth, as well as the following extensions: 

Exponentiation operator 

Hexadecimal, octal, and binary integers 

Double-precision real data type 

Dollar sign ($) and underline (_) characters in identifiers 

External procedure and function declarations 

CARD, CLOCK, EXPO, SNGL , and UNDEFINED functions 

REM operator 

OTHERWISE clause in the CASE statement 

OPEN and CLOSE procedures for file access 

FIND procedure for direct access to sequential files 

Optional carriage control for output files 

DATE, TIME, HALT, and LINELIMIT procedures 

Variable initialization 

Separate compilation 

%INCLUDE directive for alternate input files during 
compilation 

Support for calling externally declared FORTRAN subroutines, 
and for declaration of PASCAL subroutines that can be called 
by FORTRAN 

Refer to Appendix E for more information on ISO compliance. 

This chapter presents an overview of the important concepts in PASCAL 
and illustrates the structure of a PASCAL program. It also describes 
PASCAL'S lexical elements -- the character set, reserved words, 
identifiers, and special symbols. The final sections explain how to 
document your program and how to include existing files. 



1-1 



INTRODUCTION 

1.1 OVERVIEW OF PASCAL 

A PASCAL program performs operations on data items known as constants, 
variables, and function designators. A constant is a quantity with an 
unchanging value. A constant to which you give a name is called a 
symbolic constant. A variable is a quantity whose value can change 
while the program executes. A function designator causes the 
execution of a group of statements that is associated with an 
identifier and returns a value. The function type is determined by 
the type of the value it returns. 



1.1.1 Data Types 

Every PASCAL data item is associated with a data type. A data type, 
which is usually indicated by a type identifier, determines both the 
range of values a data item can assume and the operations that can be 
performed upon it. In addition, the type implicitly indicates how 
much storage space is required for all possible values of the data 
i tem . 

PASCAL provides identifiers for many predefined types. Thus, a 
program's operations can involve integers, real numbers. Boolean and 
character data, arrays, records, sets, and pointers to dynamic 
variables. PASCAL also allows you to create your own types by 
defining an identifier of your choice to represent a range of values. 

The type of a constant is the type of its corresponding value. You 
establish variable and function types when you declare them. In 
general, they cannot change. Although variables and functions can 
change in value any number of times, all the values they assume must 
be within the range established by their type. A variable does not 
assume a value until the program assigns it one. A function is 
assigned a value during its execution. 

PASCAL associates types not only with data items, but also with 
expressions. An expression is the computation of a value resulting 
from a combination of variables, constants, function designators, and 
operators. In PASCAL, you can form expressions using arithmetic, 
relational, logical, string, and set operators. Arithmetic 
expressions produce integer or real number values. Relational, 
logical, string, and most set expressions yield Boolean results. 
Other set expressions form the union, intersection, and differences of 
two sets. 



1.1.2 Structure of a PASCAL Program 
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PROGRAM Calculator (INPUT, OUTPUT) J 



Declaration 
Section 



TYPE Yes„No = 
iJAR Subtotal, 
Eauation 
Operator 
A ri s w e T' 



(Yes, No) 
Operaiid J 

: boolean; 

: CHARf 
Yes,...Nof 



real; 



F' R C E n U R E I r 1 s t v u c t i o n s i 



Procedure 
Block 



( BEGIN 
WRITELN 
URITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 



('This projSram adds 
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( ' 1 1 1 e p T' o r-i r a iti o r' f..^ e 
e 1 1 "I s 



k E! N r ; ( ♦ e ii d o f p r~ o c e d u t' 



, subt 
e I' s . E 
rompt 
— i r I 
am kee 
n e « I..I a 

ITlpt » 

<;i i r I a 
t r "J c t i 



r' a c t s , 
r I L e I' a 
and erit 
respons 
p s a y LI 
1 s i ii n 
You can 
new set 
ons*) 



III I..1 1 1 i p 
number 
e r a ri 
e t o t 
ri ri i n .d 
( -O i 1-1 
then 
o f c a 



lies, a ri 
in T' e s p 
operator 
he Opera 
subtotal 
respons 
e;;it fro 
1 Q I..1 1 a t i o 



d' ) f 
onse ' ) ; 

- - ' ) ; 

t o r J ' ) ; 

' ) ; 

e to'); 

iTi ' ) ; 
ns» ' ) ; 



Executable 
Section 



BEGIN 

WRITE ('Do 
RE ADEN (An< 
If Answer - 

REPEAT 



y o I..I ri e e d 
wer ) ; 
Yes THEN 



instructions' 
Inst rue tioni 



Type yes or no 



E:.' a LI a t i o i"i t -•" F A L.. S E ? 
Subtotal :- 0? 
WRITE ('Operand:'); 
READLN (Subtotal) ; 



WHILE 



DO 



(NOT Eauation) 
BEGIN 

WRITE ('Operator: 
READLN (Operator) 
I F" ( p e r a t o r -- ' -■■ 
BEGIN 

E(suation :- TRUE; 
WRITELN ( 'The answer 
END 
ELSE 



) 



) THEN 



is ', Subtotal :5 : 2 ) 



BEGIN 








WRITE ('Operand:'); 








READLN (Operand); 








CASE Operator OF 








'+' : Subtotal 


: - 


Subtotal 


+ Operand; 


'-' : Subtotal 


: = 


Subtotal 


- Operand; 


'*' : Subtotal 


: = 


Subtotal 


* Operand; 


'/' : Subtotal 


:- 


Subtotal 


/ Operand 


end; 








WRITELN ( 'The subtots 


1 


is ', Subtotal :5:2) 


END 









end; 

WRITE ('Any more calculartions? Type yes or no.'); 

READLN (Answer); 
UNTIL Answer = No, 
END. 



MR-S-31 50-83 



Figure 1-1: Structure of a PASCAL Program 
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Procedure and function declarations have the same structure as 
programs. Note, in Figure 1-1, the heading and block of the procedure 
instructions. This manual uses the term subprogram to denote a 
procedure or function. 



1.1.3 Definitions and Declarations 

PASCAL requires you to define every constant and user-created type and 
to declare every label, variable, procedure, and function used in your 
program. The declaration section of the program contains LABEL, 
CONST, TYPE, VAR, VALUE, PROCEDURE, and FUNCTION sections, in which 
you define and declare all the data your program uses. All of these 
except LABEL introduce identifiers and indicate what they represent. 
LABEL declares numeric labels that correspond to executable statements 
accessed by the GOTO statement. PASCAL allows you to assign initial 
values to variables you declare in a VAR section. An initialized 
variable assumes the given value when program execution begins. 



1.1.4 Executable Statements 

The executable section of a PASCAL program contains the statements 
that specify the program's actions. The executable section is 
delimited by the reserved words BEGIN and END. Between BEGIN and END 
are conditional and repetitive statements, statements that assign 
values to variables and functions, and statements that control program 
execution. 



1.1.5 Subprograms 

PASCAL provides several ways for you to group together definitions, 
declarations, and executable statements. One way is to group them 
into procedures and functions, generically called subprograms. Both 
kinds of subprograms are groups of statements associated with an 
identifier. Procedures are usually written to perform a series of 
actions, while functions are written to compute a value. 

Subprograms constitute a convenient way to isolate the individual 
tasks that the main program is to accomplish. Subprograms do not 
exist independently of the program; they are called either by an 
executable statement known as a procedure call or by a function 
designator appearing within an expression. PASCAL supplies many 
predeclared subprograms that perform commonly used operations, 
including input and output. 

A subprogram consists of a heading and a block. The heading provides 
the name of the subprogram, usually a list of formal parameters that 
declare the input data for the program, and, in the case of functions, 
the type of the result. The subprogram block consists of an optional 
declaration section and an executable section. When the declaration 
section is present, it declares data that is local to the routine 
{that is, data that is unavailable outside the subprogram) . 

PASCAL is a block-structured language in that it allows you to nest 
subprogram blocks not only within the main program, but also within 
other subprograms. Each subprogram can make its own local definitions 
and declarations and can even redeclare an identifier that has been 
declared in an outer block. A subprogram declared at an inner level 
has access to the declarations and definitions made in all blocks that 
enclose it. 
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1.1.6 Compilation Units 

A program is sometimes called a compilation unit in this manual 
because it can be compiled as a single unit (unlike a subprogram, 
which cannot be compiled without the context of a program) . A program 
consists of a heading and a block, just as a subprogram does. The 
heading consists of the name of the program and possibly a list of 
identifiers to indicate any external files that the program uses. The 
declaration section of the program block declares data that is 
available at all program levels, including all nested subprograms. 



1.2 LEXICAL ELEMENTS 

A PASCAL program is composed entirely of lexical elements. These 
elements can be individual symbols, such as arithmetic operators; or 
they can be words that have special meaning to PASCAL. The basic unit 
of any lexical element is a character, which must be a member of the 
ASCII character set, as described in Section 1.2.1. Some characters 
are special symbols that PASCAL uses as statement delimiters, 
operators, and elements of the language syntax. Special symbols are 
listed in Section 1.2.4. 

The words that PASCAL uses are combinations of alphabetic characters 
and occasionally a dollar sign ($), an underscore (_) , or a percent 
sign (%). PASCAL reserves some words for the names of executable 
statements, operations, and some of the predefined data types. 
Reserved words are listed in Section 1.2.2. Other words in a PASCAL 
program are called identifiers. Predefined identifiers represent 
routines and data types provided by PASCAL. Other identifiers can be 
created by you to name programs, constants, variables, and any other 
necessary program segment that is not already named. Section 1.2.3 
explains the use of both kinds of identifiers. 



1.2.1 Character Set 

PASCAL uses the full American Standard Code for Information 
Interchange (ASCII) character set (see Appendix B) . The ASCII 
character set contains 128 characters in the following categories: 

• The uppercase and lowercase letters A through Z and a through 
z 

• The numbers through 9 

• Special characters, such as ampersand (&), question mark ( ?) , 
and equal sign (=) 

• Nonprinting characters, such as space, tab, line feed, 
carriage return, and bell 
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The PASCAL compiler does not distinguish between uppercase and 
lowercase characters, except in character and string constants and the 
values of character and string variables. For example, the reserved 
word PROGRAM has the same meaning when written as any of the 
following : 

PROGRAM 

PRos^rAiTi 

p T^ o i5 r a iTi 

The constants below, however, represent different characters: 

The following two constants represent different strings: 
'BREAD AND ROSES' 
' B r e a d a ri d R" o s e s ' 

1.2.2 Reserved Words 

PASCAL reserves the words in Table 1-1 as names for statements, data 
types, and operators. This manual shows these words in uppercase 
characters . 



Table 1-1 



Reserved Words 



AND 

ARRAY 

BEGIN 

CASE 

CONST 

DIV 

DO 

DOWNTO 

ELSE 



END 

FILE 

FOR 

FUNCTION 

GOTO 

IF 

IN 

LABEL 

MOD 



NIL 

NOT 

OF 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT 



SET 

THEN 

TO 

TYPE 

UNTIL 

VAR 

WHILE 

WITH 



You can use reserved words in your program only in the contexts in 
which PASCAL defines them. You cannot redefine a reserved word for 
use as an identifier. 

In PASCAL, the following words are considered semireserved words: 

MODULE 
OTHERWISE 
REM 
VALUE 

Like the reserved words, PASCAL also predefines these semireserved 
words. However, unlike reserved words, you can redefine these words 
for your own purposes. If you redefine them, they can no longer be 
used for their original purpose within the scope of the block in which 
they are redefined. 
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1.2.3 Identifieirs 

PASCAL uses the term identifier to mean the name of a program, module, 
constant, type, variable, procedure, or function. An identifier is a 
sequence of characters that can include letters, digits, dollar signs 
($), and underline symbols {_) , with the following restrictions: 

• An identifier can begin with any character other than a 
digi t. 



An identifier must be unique in its first 
within the block in which it is declared. 



31 characters 



• An identifier must not contain any blanks. 

PASCAL places no restrictions on the length of identifiers, but scans 
only the first 31 characters for uniqueness; the rest are ignored. 
The following are examples of valid and invalid identifiers: 



Valid 

For2n8 
Max_Wo rds 
Upto 
$CREMBX 



Inval id 

4awhile (starts with a digit) 
UpStto (contains the ampersand) 



1.2,3.1 Predeclared Identifiers - PASCAL predeclares some identifiers 
as names of functions, procedures, types, values, and files. These 
predeclared identifiers are listed in Table 1-2 and appear in 
uppercase characters throughout this manual. 



Table 1-2: Predeclared Identifiers 



ABS 

ARCTAN 

BOOLEAN 

CARD 

CHAR 

CHR 

CLOCK 

CLOSE 

COS 

DATE 

DISPOSE 

DOUBLE 

EOF 

EOLN 



EXP 


OPEN 


EXPO 


ORD 


FALSE 


OUTPUT 


FIND 


PACK 


GET 


PAGE 


HALT 


PRED 


INPUT 


PUT 


INTEGER 


READ 


LINELIMIT 


READLN 


LN 


REAL 


MAX I NT 


RESET 


NEW 


REWRITE 


ODD 


ROUND 




SIN 



SINGLE 

SNGL 

SQR 

SQRT 

SUCC 

TEXT 

TIME 

TRUE 

TRUNC 

UNDEFINED 

UNPACK 

WRITE 

WRITELN 



You can redefine a predeclared identifier to denote some other item. 

Doing so, however, means that you can no longer use the identifier for 

its usual purpose within the scope of the block in which it is 
redefined . 

For example, the predeclared identifier READ denotes the READ 
procedure, which performs input operations. If you use the word READ 
to denote something else, such as a variable, you cannot use the READ 
procedure. Because you could lose access to useful language features, 
you should avoid redefining predeclared identifiers. 
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The directives FORTRAN, FORWARD, EXTERN, and EXTERNAL are also 
predeclared by the PASCAL compiler. However, they retain their 
meanings as directives even if you redefine them as identifiers. 



1.2.3.2 User Identifiers - User identifiers denote the names of 
programs, modules, constants, variables, procedures, functions, and 
user-defined types. User identifiers name all significant data 
structures, values, and actions that are not represented by a reserved 
word, predeclared identifier, or special symbol. 



1.2.4 Special Symbols 

Special symbols represent arithmetic, relational, and set operators, 
delimiters, and other syntax elements. PASCAL includes the special 
symbols listed in Table 1-3. 



Table 1-3: Special Symbols 



Name 



Symbol 



Name 



Symbol 



Plus sign + 

Equal 

Not equal <> 

Exponentiation ** 

Subrange 
operator 

Parentneses ( ) 

Comment (**){} 

Minus sign 

Less than or <= 
equal 

Assignment := 
operator 

Greater than or >= 
equal 



Period 

Multiplication * 

Less than < 

Colon ;: 

Comma , 

Square brackets [ ] (. 

Division / 

Greater than > 

Semicolon ; 

Pointer "^ @ 



1.3 DELIMITERS 

PASCAL uses two special symbols as delimiters: the semicolon (;) and 
the period (.). The semicolon separates one PASCAL statement from the 
next. One line of your program can contain one or many statements, 
but the statements must be separated by semicolons. The period marks 
the end of the PASCAL program. 
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The semicolon and the period are the only characters that PASCAL 
recognizes as delimiters. Spaces, tabs, and car r iage- return/1 ine-feed 
combinations are separators and cannot appear within an identifier, a 
number, or a spiecial symbol. You must use at least one separator 
between consecutive identifiers, reserved words, and numbers; but you 
can use more than one if you want. You could, for instance, put each 
element of a PASCAL program on a separate line: 



PROGRAM 

S i iri 

( 

DUTFniT) 

r 

BEGIN 

WRITELN ( 

' T h is is <3 s 1 iri p 1 e p r o <^ r a in ♦ ' 

) 

END. 

You could also put the entire program on one ]ine: 

PROGRAM SiiTi(OUTPUT) iBEGIN WRITELN ( ' This is « simple prosJrair.. ' )END* 

As long as each complete statement is separated from the next by a 
semicolon, PASCAL interprets your input correctly. However, including 
spaces, tabs, and carriage- return/1 ine-feed combinations make your 
program easier to read and understand. For readability, you could 
write it as follows: 

PROGRAM Sim (OUTPUT) r 
BEGIN 

WFi:ITELN( " This is a simple program* ' ) 
ENIU 

The reserved words BEGIN and END are also used as delimiters. BEGIN 
indicates the start of the executable section or a compound statement, 
and need not be followed by a semicolon. 

END indicates the end of one of the following: 

• A record definition 

• An executable section 

• A compound statement 

• A CASE statement (see Section 5.3.3) 

Although PASCAL does not require one, you can use a semicolon 
immediately before END. A semicolon in this position results in an 
empty statement between the semicolon and the reserved word END. The 
empty statement implies no action. 

1.4 DOCUMENTING YOUR PROGRAM 

In addition to statements and delimiters, you can put comments in your 
PASCAL program. Comments are simply words or phrases that describe 
what happens in the program. 

You can enclose comments in braces { } , as follows: 

< This is 3 coiTiiTient* > 
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Also, you can start a comment with the left-parenthesis/asterisk 
character pair, and end it with the asterisk/right-parenthesis 
character pair, as follows: 

(* fhis is also a coiriirient *) 

You can also mix the type of comment characters you use. For example, 
you can use a left brace with an asterisk/right-parenthesis character 
pa ir : 

•{.' T h :i. s i s a n o t h e r c o iri tri e n t * ) 

You can place a comment anywhere a space is legal. Unlike statements, 
comments are not delimited by semicolons. 

A comment can contain any ASCII character because PASCAL ignores the 
text of the comment. 



NOTE 

To turn off braces { } as recognized 
comment characters, use the /NATIONAL 
switch. See Section 8.4.3 for more 
information on this switch. 



1.5 THE %INCLUDE DIRECTIVE 

The %INCLUDE directive allows you to access statements from a PASCAL 
file, called the included file, during compilation of the current 
file. The contents of the included file are inserted in the place 
where the PASCAL compiler finds the directive. This directive can 
appear anywhere in the PASCAL program. 



Forma t 

%INCLUDE 'file specif ica 
where: 



rri /LIST ^Ti ' 

tion 11) /NOLIST liJ 



•file specification' is the name of the file to be included. 

The apostrophes are required. 

/LIST indicates that the included file is to 

be printed in the listing. This is the 
defaul t . 

/NOLIST indicates the included file is not to be 

printed in the listing. 

When the compiler finds the %INCLUDE directive, it stops reading from 
the current file and begins reading from the included file. When the 
compiler reaches the end of the included file, it resumes compilation 
immediately following the %INCLUDE directive. 
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In the following example, the %INCLUDE directive specifies the file 
CONDEF.PAS, which contains constant declarations. 

Main PASCAL Program 

P R G F;; A M S t u d e n t _.. C o u v ses (IN P U J y U T' I-' U T r S C H E D ) y 

c N s J % I N c: L- i.j D E ' c N i:i i;;: p . i"- a s ' 

TYPE S<-hedules -^ RECORD 

>' e <:? v % ( F r^ f S o y >J r y S rO 5 

M a IT. e : P A C K E D ARRAY C: 1 . ♦ 3 :i P C H A R ? 

f ■ a T^ e 1-1 1 s J F- A C K E D ARRAY L' 1 ♦ ♦ 4 LI P C Kl A R ? 

Colle.«Je J (Eri^.i. neeri. ri'^y A^c^l:i tecturey As^ri culture) 

end; 



External File 
CONDEF.PAS 

MAX....CLASS -^ 300 y 
N._PROFS =••= 140y 
F-ROSH - 3000? 

The %INCLUDE directive instructs the compiler to insert the contents 
of the file CONDEF.PAS after the reserved word CONST in the main 
program. The main program StudentCourses is compiled as if it 
contained the following: 

PROGRAM Student.„Courses (INPUTy OUTPUTy SCHED)? 

CONST M3x_Cl3SS = 300? 
N_.Profs = 140? 
Frash -^ 3000? 

TYPE Schedules = RECORD 

Year! (Fry Soy Jry Sr)? 

Name: PACKED ARRAY Cl»,303 OF CF^AR? 

Parents : PACKED ARRAY LI ♦♦403 OF CHAR? 

College \ ( Engineering y Architecturey Agriculture) 

END? 



You can use the %INCLUDE directive in another included file; however, 
recursive %INCLUDE directives are not allowed. If, for example, the 
file OUT. PAS contains an %INCLUDE directive for the file IN. PAS, then 
IN. PAS must not contain an %INCLUDE directive for the file OUT. PAS. 
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An included file at the outermost ] evel of a program is said to be 
included at the first leve]. A file included by a first-level 
included file is at the second level, and so on. There is no limit to 
the number of included files you can nest in a program. Figure 1-2 
illustrates some levels of included files. 

^5ain Program A. PAS 



Pro?iraii. F-' ? CONST % INCLUDE;: 'B^F'AS' 

TYF'E %.TNCL..UDE 'A ♦PAS' K>^R % INCLUDE 'C.PAS' 

(* Level 1 *) ("* Both Level 2 * ) 

C.PAS D.PAS 



^^AR yilNCLUDE 'D,PAS' FUNCTION % INCLUDE 'E^PAS' 

(* Level 3*) 

F R C E D U R E % I N C L U D E ' F" ♦ ? A S ' 
(* Bath Level 4 *) 

F.PAS G.PAS 



F- U N C T I ON % I N C L U D E." ' Ci ♦ F A S ' 

Figure 1-2: %INCLUDE File Levels 
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CHAPTER 2 
PASCAL DATA TYPES 



This chapter describes PASCAL data types and how to define and declare 
them in the TYPE and VAR sections of a PASCAL program. This chapter 
also provides general information about using each data type. 

PASCAL uses three categories of data types: 

1 . Scalar 

2. Structured 

3. Pointer 

Scalar data types represent ordered groups of values. The scalar data 
types, which are described in Section 2.2, consist of predefined and 
user-defined data types. Predefined data types include integers, real 
numbers, and characters. User-defined data types include a range of 
explicitly defined values and a subrange of another data type. Scalar 
data types are building blocks for the structured data types. 

Structured data types are collections of data types organized in 
specific ways. Structured data types include arrays, record files, 
and sets. These are described in Section 2.3. 

Pointer data types provide access to dynamic data structures. They 
are described in Section 2.4. 



2.1 DECLARING DATA TYPES 

PASCAL provides two methods of declaring variables of a particular 
type. You can define the type in the TYPE section, and then use a 
declaration in the VAR section to declare one or more variables of the 
newly defined type. The general format is: 

TYPE type identifier = type definition; 
VAR variable name : type identifier; 

Alternatively, you can declare a variable by specifying the type 
definition^ in the VAR section and omitting the type identifier and 
type definition from the TYPE section. The general format for this 
method is the following: 

VAR variable name : type definition; 

If a data type is used only once within the program, it is simpler to 
define it in the VAR section. 
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If a data type is used more than once in the program, it is more 
efficient to define the data type within the TYPE section. This 
creates a structure that can be accessed by more than one identifier. 
For example, if a program uses an array three times, you can define 
the array type in the TYPE section, and assign three identifiers to 
that array type in the VAR section. 



2.2 SCALAR TYPES 

Scalar data types consist of ordered sets of values with the concept 
of predecessor and successor. For example, the scalar data type 
INTEGER represents whole numbers that follow in a predefined sequence: 
5 is less than 300. Scalar data types encompass two subclasses: 
predefined and user-defined. These are described in the following 
sections . 



2.2.1 Predefined Data Types 

PASCAL provides the following predefined scalar data types 



1. 
2. 
3. 



INTEGER 

REAL 

SINGLE 



4. DOUBLE 



BOOLEAN 
CHAR 



The predefined types SINGLE and DOUBLE provide explicit 
single-precision and double-precision real numbers. Throughout this 
manual, the term REAL refers to REAL, SINGLE, and DOUBLE types. 

The following sections describe each predefined data type. 



2.2.1.1 INTEGER Data Type - The type INTEGER denotes positive and 
negative whole number values ranging from (-2**35) to (+2**35)-l, or 
-34359738368 to +34359738367. The largest possible value of the 
INTEGER data type is known by the predefined constant identifier 
MAXINT. 

You can indicate a decimal integer constant with decimal digits 
combined with plus and minus signs. The following are valid decimal 
constants in PASCAL: 

17 

-333 



+ 1 

89324 

A minus sign {-) must precede a negative integer value.. A plus sign 
(+) may precede a positive integer, but the sign is not required. No 
commas or decimal points are allowed. 
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In addition to deicimal notation, PASCAL allows you to specify integer 
constants in binary, octal, and hexadecimal notation. You can use 
constants written in these notations anywhere that decimal integer 
constants are permitted. 

To specify an integer constant in binary, octal, or hexadecimal 
notation, place a percent sign (%) and a letter in front of a number 
enclosed in apostrophes. The appropriate letters, which can be either 
uppercase or lowercase, are B for binary notation, for octal 
notation, and X for hexadecimal notation. An optional plus or minus 
sign can precede the percent sign to indicate a positive or negative 
value. Note that regardless of which notation you use, the value can 
not exceed MAXINT, for example: 

•■••%B't:L.1001' 
%bM 00000.1 :r 
%G' 77:12' 
••••%o'473' 
f%X'5;5Al' 



2.2.1.2 REAL Data Type - The reserved words REAL, SINGLE, and DOUBLE 
denote the real number types. In PASCAL, a real number can range from 
+ -0 .14*10**-38 through +-3.4*10**38, with a typical precision of eight 
decimal digits. REAL and SINGLE are synonymous; both have 
single-precision real number values. The type DOUBLE allows you to 
declare double-precision real variables. You can assign real and 
integer values to a variable of type REAL, SINGLE, or DOUBLE. If you 
assign an integer value to a variable of type REAL, PASCAL converts 
the integer to a real number. 

In a PASCAL program, you can write real numbers in two ways; fixed on 
floating point. With fixed point notation, you write the number with 
the decimal point exactly where it appears in the value. The first 
way is the following form: 

893»2497 
-OtOl 

8»0 
-23,18 

0,0 

Note that, in this form, at least one digit must appear on each side 
of the decimal point. That is, a zero must always precede the decimal 
point of a number between 1 and -1, and a zero must follow the decimal 
point of a whole number. 

Some numbers, however, are too large or too small to write 
conveniently in the above format. PASCAL provides scientific (also 
known as exponential) notation as a second way of writing real 
numbers. In scientific notation, you write the number as a positive 
or negative value followed by an exponent, for example: 

-0,07E4 
lO^OE-l 
-201E+3 

~2,14159E:0 
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The letter E after the value means that the value is to be multiplied 
by a power of 10. Note that you can use an uppercase or lowercase 
letter. The integer following the E gives the power of 10; the 
integer can be positive or negative. Using scientific notation, you 
can write the real number 23'7.o in any of the following ways: 

237e0 

2.37E2 

0»000237EI-6 

2370E-:l 

0* 000000023 7E;L0 

This format is often called floating-point format because the implied 

position of the decimal point "floats" depending on the exponent 

following the E. At least one digit must appear on each side of the 
decimal point, if the decimal point is present. 

PASCAL provides single and double-precision representation for real 
numbers. Single precision typically provides eight significant 
digits, depending on the magnitude of the number. Double precision 
extends the number of significant digits to 18. 

To indicate a double-precision value, you must use floating-point 
notation, replacing the letter E with an uppercase or lowercase D, for 
exampl e: 

ODO 

4»37;L52866SD-3 
--B12d2 
411-3 

The integer following the D is an exponent, as in single-precision 
floating-point numbers. All the above values have approximately 18 
significant digits. 



2.2.1.3 BOOLEAN Data Type - BOOLEAN data types can have the value 
TRUE or FALSE. Boolean values are the result of testing expressions 
for truth or validity. The result of a relational expression (for 
example, A < B) is a Boolean value. 

PASCAL defines Boolean data types as predefined identifiers and orders 
them so that FALSE is less than TRUE. For assignment purposes, the 
type BOOLEAN is compatible with those variables and expressions that 
yield a BOOLEAN result. 



2.2.1.4 CHAR Data Type - The value of data type CHAR is a single 
value from the ASCII character set, as listed in Appendix B. To 
specify a character value, enclose an ASCII character in apostrophes. 
The apostrophe character itself must be typed twice within 
apostrophes. Each of the following is a valid character value: 

'A' 

'0' 
/ / / / 
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You can use strings such as 'HELLO* and •****', but you must represent 
them as packed arrays of characters (see Section 2.3.1.2). When you 
use the ORD function in an expression of type CHAR, the result is the 
ordinal value in the ASCII character set of the character value. See 
Section 2.2.2.3 for an explanation of the ORD function. 



2,2.2 User-Defined Scalar Data Types 

User-defined scalar data types are those that you define, as opposed 
to those data types that PASCAL predefines for you. PASCAL allows you 
to define two kinds of scalar data types: enumerated and subrange. 
An enumerated type consists of an ordered list of identifiers. The 
subrange type is a continuous range of values of a defined scalar 
type, called a base type. The following sections describe these two 
user-defined types. 



2,2.2,1 Enumerated Data Types - An enumerated data type is an ordered 
list of identifiers. To define an enumerated type, list in some order 
all the identifiers denoting its values. With PASCAL, you can define 
an enumerated data type in two ways: 

Format 1 

TYPE identifier = (identifier |[ , identi f ier , ...J ) 
Format 2 

VAR identifier : (identifier [[, identi f ier , ...J ) 
wh e r e : 

identifier is the name of the enumerated type. 

For example: 

TYPE Bever3:^e = (Milk? Uaterr Col3» Beer)? 

This TYPE section defines the type Beverage and lists all the values 
that Beverage can assume within a program. 

PASCAL assigns an order to the items in your list from left to right. 
Thus, the values of an enumerated type follow a left- to-right order, 
so that the last value in the list is greater than the first, for 
example: 

TYPE Seasons = ( Spring f Summer > Fall? Winter) J 

The relational expression (Spring < Fall} is TRUE because Spring 
precedes Fall in the list of values. 

The only restriction on the values of an enumerated type is that you 
cannot define the same value in more than one list in the same TYPE 
section. For example, the following is illegal: 

TYPE Seasons = (Sprini3f Summer » Fallf Winter) > 
Schoolyear = (Fall* Winterr Sprint)? 
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To initialize a variable of an enumerated type, specify a constant 
value. For example, you can assign the variable Quarter of type 
Seasons as follows: 

VAR Quarter J Sessons J= Fsll? 

The variable Quarter takes on the initial value Fall. 

Examples 

TYF-'E Colors --.(Redr Yellowy Greene Purple y Blue)? 
Sport -" (SwiiTiy Rurij' Sk:L)r 
Beverai^e -• (Mi Iky Watery Colay Beer)? 

VAF^■ Cookie J (Oatmeal y Choc-Chipy Peanut -Butter y Su.^ar) i~ Su^^ar? 
E x e T^ (.: i s e y F- 1. j f "i t Spoilt J ••- S 1^. i y 
Drink J E^everasJe? 

The TYPE section defines the types Colors and Sport, listing all the 
values that variables of each type can assume. 

The VAR section declares the variable Cookie, which can have the 
values Oatmeal, Choc-Chip, Peanut-Butter, and Sugar. The variables 
Exercise and Fun are declared as type Sport, and Drink is declared as 
type Beverage. 

Initial values are established for the identifiers Cookie, Exercise, 
and Fun in the VAR section. 



2.2.2.2 Subrange Data Types - A subrange specifies a limited portion 
of another scalar type (called the base type) for use as a type. 

Format 1 

TYPE identifier = lower limit.. upper limit 
Format 2 

VAR identifier : lower limit. .upper limit 
where : 

identifier is the name of the subrange. 

lower limit is the constant value at the low end of the 
subrange . 

separates the limits of the subrange. 

upper limit is the constant value at the high end of the 
subrange . 

The subrange type is defined only for the values between and including 
the lower and upper limits. The limits you specify must be constants; 
they cannot be expressions. (See Chapter 3 for information on 
expressions.) The values in the subrange are in the same order as in 
the base type. 
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The base type can be any enumerated or predefined scalar type except 
REAL. You can use a subrange type anywhere in the program where its 
base type is legal. The rules for operations on a subrange are the 
same as the rules for operations on its base type. A subrange and its 
base type are compatible. 

The use of subrange types can make a program clearer. For example, 
integer values for the days of the year range from 1 to 365. Any 
value outside this range is obviously incorrect. You could specify an 
integer subrange for the days of the year as follows: 

Kf A R n B vi •■■• G f ••■• Year : \ * .366 

By specifying a subrange, you indicate that the values of the variable 
Day-Of-Year are restricted to the integers from 1 to 366. 

Exampl e 

T Y P E M o ri I h s ••" ( J b n y I'-' e b y Mary A p r^ y M a »:i v J u ri y 
J U 1 y A U si y S e P y C t y N C) V y D e C ) y 

KfM'< Cb iti p .... M t) 15 t M a y ♦ « c t ? 
I... e B f .... M <.) s i ^S e p ♦ « N o v y 
F"irst....Half t 'A'^^'M'y 
Ward I 0* ♦65535? 

This example defines the variables Camp_Mos and Leaf_Mos as subranges 
of the enumerated type Months. A Camp_Mos value can be only May, Jun, 
Jul, Aug, Sep, or Oct. A Leaf_Mos value can be only Sep, Oct, or Nov. 
The variable First_Half is a subrange of the ASCII characters, with 
possible values uppercase A through uppercase M. The variable Word is 
a subrange of the integers from to 65535. 



2.2.2.3 The ORD Function - Each element of a scalar type (except the 
REAL type) has a unique ordinal value, which indicates its order in a 
list of elements of its type. The ORD function returns the ordinal 
value as an integer, for example: 

ORD( 'Q' ) 

This expression returns 81, which is the ordinal value of uppercase Q 
in the ASCII character set (see Appendix B) . Note that the order of 
the ASCII character set may not be what you expect. The numeric 
characters are in numeric order, and the alphabetic characters are in 
alphabetic order. All uppercase characters have lower ordinal values 
than all lowercase characters, for example: 

ORD('Q') is less than ORD('«') and 
OREK'A") is less than ORDC'Z") but 
ORD('Z') is less than ORDCa') 

You can use ORD on a value of an enumerated type. Enumerated types 
are ordered starting at zero, for example: 

ORD( Tuesday) 

Assuming that Tuesday is a value of type Weekdays (which includes the 
values Monday, Tuesday, Wednesday, Thursday, and Friday), this 
expression returns the integer 1. 

The ordinal value of an integer is the integer itself. For example, 
ORD(O) equals 0, ORD(23) equals 23, and ORD(-1984) equals -1984. 
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2.3 STRUCTURED DATA TYPES 

A structured data type consists of a collection of related data 
components; it is characterized by its method of structuring and its 
components. All structured data types consist of a collection of 
elements or components that are grouped together in a structure in 
which they can collectively be manipulated. 

PASCAL provides four structured data types: 

• ARRAY 

• RECORD 

• SET 

• FILE 

An array is a group of components of a predefined size and of the same 
type. A record consists of one or more named fields, each of which 
contains one or more data items. Records can include fields of 
different data types. A set is a collection of data items of the same 
scalar type, the base type. You can access a set as an entity, but 
you cannot access the set components as individual components or 
variables. A file is a sequence of data components that are of the 
same type; each component can be individually accessed. A file can 
be of variable length. 

Section 2.3.1 describes arrays; Section 2.3.2 describes records; 
Section 2.3.3 describes sets; and Section 2.3.4 describes files. 



2.3.1 Array Types 

An array is a group of components of the same type that share a common 
name. You refer to each component of the array by the array name and 
an index (or subscript). An array type definition specifies the type 
of the indices and the type of the components. 

Format 

ARRAY [index type [[, index type...]] ] OF component type 

where : 

index type specifies the type of the index. The index 

type can be a subrange, CHAR, BOOLEAN, or 

enumerated type; but it cannot be a REAL 
type. 

component type specifies the type of the components of the 

a rray . 

The components of an array can be of any type. For example, you can 
define an array of integers, an array of records, or an array of real 
numbers. You can also define an array of arrays, which is known as a 
multidimensional array. 

The indices of an array must be of a scalar type, but cannot be real 
numbers. Note that you cannot specify the type INTEGER as the index 
type. To use integer values as indices, you must specify an integer 
subrange, unless you are using conformant-array parameters. If 
necessary, PASCAL determines the subrange. For example, if the index 
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is BOOLEAN, then PASCAL converts the subrange to FALSE.. TRUE because 
the type BOOLEAN has only two legal values. For more information 
about conformant-array parameters, refer to Section 6.3.2. 

The range of the index type establishes the size of the array and the 
way it is indexed, for example: 

TYPE." Letters ■■■■■■ ARRAY C J. . . :i. 11 OF CHARP 



^^AR Letl 



L etters y 



The array variable LETl has 10 components, referred 
LETir2], LETl [31, and so on, through LETl flO] . 



to as LETiri] 



You can use array components in expressions anywhere you can use 
variables of the component type. For the array as a whole, however, 
you can use only the assignment statement (:=). An exception to this 
rule is made for character strings, which PASCAL defines as packed 
arrays of type CHAR. See Section 2.3.1.2. 



2,3.1.1 Multidimensional Arrays - An array with components of an 
array type is a multidimensional array. An array can have any number 
of dimensions, and each dimension can have a different index type. 
For example, the following declares a two-dimensional array variable: 



VAR Two....ri 



ARRAY C0f4J OF ARRAY C ' A ' ♦ . 'D ' !] OF JNTE-GFR? 



PASCAL allows you to abbreviate the definition by specifying 
index types in one pair of brackets, for example: 



all the 



^^AR TWO...D 



ARRAY r ♦ ♦ 4 ^ ' A ' ♦ ♦ ' D ' .1 OF INTEGER r 



To refer to a component of this array, you specify two indices, one 
integer and one character, in the order they were declared: 
Two_D [0 , • A' 1 f Two_D ro , ' B ' ] f and so on. You can also specify 
Two_D [0 ] r ' A ' ] . The first index indicates the rows of the array, and 
the second index indicates the columns. Hence, you can picture the 
array Two_D as in Figure 2-1. 





'A' 


'B' 


'C 


'D' 













1 










2 










3 










4 











TWO D MR-S-31 13-83 



Figure 2-1: Two-Dimensional Array Two D 
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When referring to the components of Two_D , the first component in the 
first row is Two_D TO , ' A ' 1 • The second component in this row is 
Two_D ro , ' B ' 1 . The first component in the second row is Two_D fl , ' A ' ] . 
The last component in the last row is Two_D [4 , ' D ' ] • In general, 
element j of row i is Two_D f i , j 1 . 

You can define arrays of three or more dimensions in a similar 
fashion, for example: 



TYF-'E:' Ches<»iTien 



( QF;; » QN y QB y Q y K y KF y KN y KR y F y E ) y ( *E iT.e;i>ns eirip t^:; saua re))<) 



KfM< (;;hess3i:i : ' array t::L*,3y :l. ♦»8y QR,J<R::I of Chessivien? 

This declaration specifies a three-dimensional chess game. The 
indices of the array are the levels, the ranks, and the files of the 
chessboard. For example, the reference Chess3D [1, 1, QR] specifies 
the first level, first square in the upper left corner (bottom level, 
first rank. Queen's Rook file) . Figure 2-2 illustrates the three 
levels of this array. 



Chess3D (1 ,n , 
Chessmen) 
( bottom) 



Chess3D (2 ,n. 
Chessmen) 
(middle) 



ChessBD (3 ,n. 
Chessmen) 
(top) 



QR ON QB Q K KB KN KR 




,>^y^y^y^?^y^. 




ON QB Q K KB KN KR 



CHESS3DI3. n. CHESSMEN] 



CHESS3DI2.n. CHESSMEN! 



CHESS3D[1.n. CHESSMEN! 



Figure 2-2: Three-Dimensional Array Chess3D 



When storing values in an array, PASCAL increments the indices from 
right to left. Thus, PASCAL increments the rightmost index until the 
maximum value is reached, then moves to the left to the next index, 
and so on, until all indices have been incremented to the specified 
amount. 
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In the three-dimensional array Chess3D, PASCAL starts by holding the 
first two indices constant while stepping through the values of 
Chessmen. Thus, the first values are assigned to components Chess3D 
ri,l,QR] through Chess3D ri,l,KR]. Next, the second index is 
incremented and values are assigned to the components Chess3D ri,2,QRl 
through Chess3D [1 , 2 ,KRT . After these eight elements are assigned, the 
second index is again incremented, and values are assigned to Chess3D 
fl,3,QR] through Chess3D ri,3,KR]. The assignment process continues 
with the first index held constant until the second index has been 
incremented from 1 to 8 . Then, the first index is incremented, and 
the process is repeated. Hence, all values for the bottom level 
(denoted by Chess3D [1 ,n ,Chessmenl ) are stored before any values for 
the middle level (denoted by Chess3D [2 ,n ,Chessmen] ) . The top level 
(denoted by Chess3D r3 ,n ,Chessmen] ) receives its values last. Figure 
2-3 illustrates this order. 
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CHESS3Dl2.n.CHESSMENl 



CHESS3DI3,ri,CHESSMENI 
Itop) 

MR-S-31 15-83 



Figure 2-3: Storing Components in an Array 



2.3.1.2 String Variables - A character string variable in PASCAL is 
defined as a packed array of characters with a lower bound of 1. To 



declare a string variable, 
length, for example: 



specify a packed array of the proper 



VAR name: 



F-ACKED ARRAY Cl»t20:i OF CHAR? 



This declaration allows you to store a string of 20 characters in the 

array variable NAME. The length of this string must be exactly 20 

characters. PASCAL neither adds blanks to extend a shorter string nor 
truncates a longer string. 

You can assign to a string variable the value of any string constant 
or variable of the defined length. You can also compare strings of 
the same length with the relational operators <, <= , >, >= , =, and <>. 
The result of a string comparison depends on the ordinal value (in the 
ASCII character set) of the corresponding characters in the strings, 
for example: 



'motherhood' 



'apple Pies' 



This relational expression is TRUE because lowercase 'm' comes after 
lowercase 'a' in the ASCII character set. If the first characters in 
the strings are the same, PASCAL looks for differing characters, as in 
the following: 



'strin^l ' 



'strin£i2' 



This expression is also TRUE because the digit 1 precedes the digit 2 
in the ASCII character set. 
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To assign a string constant to an array in the executable section, use 
an assignment statement. The string variable must be of the same size 
as the array; otherwise, an error occurs. The following example 
shows an assignment statement in the executable section: 



■y Y P E S t V i n Si ■=■■ F" A C K E. H A R R A Y L" 1 ♦ ♦ 1 H E C H A R y 
VAFv- Word J Strj.rii^.i? 

Word t ~~ ■' QrBn*:ie ' ? 



ENDP 

The string constant 'orange ' is padded with spaces to match the size 
of the array. 

The READ and READLN statements automatically pad the string constant 
if necessary. Thus, it is not necessary to pad the string constant 
with spaces to match the variable size, when using the predefined file 
INPUT or reading from a file defined as TEXT. 



2.3.1.3 Initializing and Assigning Values to Arrays - You should 
assign values to an array either in the declarations or the executable 
section before using the array within the program. As with all 
variables, the value for each component is undetermined, until a value 
is specifically assigned. 

To assign values to an array in the executable section, a value must 
be assigned to each component in the array. One method of doing this 
is to use a FOR statement. By using the FOR statement control 
variable as the array index, it is possible to step through all 
components of the array, setting them to the same initial value. Each 
index for the array is incremented at the same time the counter in the 
FOR statement is incremented. An example of this is: 

VAR Arra;:*._E;:x3iTiple : ARF<AY Cl,»10n OF INTE-GCIR? 
Index I INTEGE;:R? 

BEGIN 

FOR Index : -= 1 TO 10 DO 

A I' r 3 H .... E. >■ a in p 1 e [.' I r i d e x 1 t ■■■■ ? 



ENDr 

In this example, the array has been defined as being an array of type 
INTEGER. As the FOR loop executes each time, the counter is 
incremented by one. Likewise, the index is incremented by one. On 
each execution of the loop, the current component is assigned a value 
of 0. 

An array can be initialized in the VAR section. The following example 
shows each component of the array Ar ray_Example being initialized with 
the value : 

<v^AR Arr3y_.Ex3iTiPle : ARRAY CI.. 103 OF INTEGER : =•• (10 of 0)? 
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To assign values to a two-dimensional array in the executable section, 
you can use two nested FOR statements to increment the two indices, as 
shown in the fo] lowing example: 

CONST Zero •= Or 

^M< Tab 1 e : ARF^ A Y C :l. » » ;l. y ;L ♦ . 5 J OF" INTEGER y 
i ri d e k .... 1 r i r. d e k .... 2 t I N 7' E E R ? 

BEGIN 

FOFi; in de >;.... l t^-^ 1 TO ;L0 DO 

FOF;: :i.nde>;.„.2 t-^^ 1 TO 5 DO 

r a b ;L e 1." :L I'l d e x .-. .t y i n d e ;< .... 2 ,1 J =•"" Z eror 



ENDy 

Ar ray_Example is defined to be a two-dimensional array of type 
INTEGER. 

The nested FOR statements assign the value of Zero (which has been 
assigned the value of "0" in the CONST section) to each component in 
the array. 

To initialize a two-dimensional array in the VAR section, specify a 
constructor for each row, in parentheses. The following example shows 
a two-dimensional array that is initialized in the VAR section: 

VAR Table : ARRAY 11 .1 ♦ ♦ 10 y 1 . ♦ 53 OF INTEGER J -= <10 OF (5 OF 0))y 

To assign values to arrays of three or more dimensions in the 
executable section, use three or more nested FOR statements: 

CONST Zero --^ Oy 

VAR Table J ARRAY Cl,,5yl.,3yl»»2:] OF INTEGER? 
index„l y iridex„2y index....3 t INTFfGERy 

BEGIN 

FOR index™ 1 := 1 TO 5 DO 

FOR index_2 := 1 TO 3 DO 

FOR index._3 := 1 TO 2 DO 

TableCindex-.. 1 r index_2.1 l~ Zero? 



END? 

This example shows the initialization of a three-dimensional array. 
The value of Zero is assigned to each element in Table, from 
Table[l,l,l] to TableFB , 3 , 2] . 

To initialize an array of three or more dimensions in the VAR section, 
specify a constructor for each row. The following example shows a 
three-dimensional array being initialized in the VAR section: 

VAR Table : ARRAY CI ♦ ♦Sy 1 , ♦3y 1 ♦ ♦23 OF INTEGER := 

< 5 OF (3 OF (2 OF ' ').))? 
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2.3.1.4 Array Type Compatibility - You can assign one array to 
another only if the arrays are either identical or compatible. Arrays 
of the same type or equivalent types are identical. The following 
example demonstrates identical arrays: 

TYPE S3lav\:i ■■■■■■■■ AF<RAY i;:i.,50::i OF REAL? 
F'' B \:{ '■■ S a 1 3 r \:> y 

V A F-' W 3 <Li G • I n c o III e t S 3 1 a r v, ? 
Monevi t F-'a^rj? 

The arrays Wage and' Income are identical because both are of type 
SALARY. The array l^oney of type PAY is identical to Wage and Income 
because the type PAY is declared equivalent to the type SALARY. 
Identical arrays are always compatible. 

Arrays that are not identical are compatible if they meet all of the 
following criteria: 

• They have the same number of components. 

• Their elements are of compatible types. 

• Their indices are of compatible types. 

• The upper bounds of their indices are equal. 

• The lower bounds of their indices are equal. 

• Both are packed or neither is packed. 

• For packed arrays of subrange types, the bounds of the 
subranges must be the same for both types. 

The following two array types, though not identical, are compatible: 

TYF-'E Grades ^ ARRAY Ll,*281 OF 0.,Ar 
Feb-_TeiTiPS - ARRAY l":i..28:] OF INTEGER? 

Both types define arrays with 28 components, indexed from 1 to 28. 
The integer subrange components of type GRADES are compatible with the 
integer elements of type Feb_Temps. Therefore, you can assign 
variables of type GRADES to variables of type Feb_Temps, and vice 
versa. Note that, if the TYPE definition specified packed arrays, the 
types GRADES and Feb_Temps would not be compatible. 

PASCAL does not check for valid assignments to subranges that are part 
of a structured type. If you assign an array of type Feb_Temps to one 
of type GRADES, you must ensure that the values are in the correct 
range. An out-of-range assignment does not result in an error 
message, even if the CHECK option is enabled at compile time. 
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2.3.1.5 Array Examples - 

Example 1 

type: Times ■■■'■■ !♦ ♦ilO? 

VAR Fvaceresulis t AFFRAY C 1 ♦* 50 ::i OF" Tiinesy 

:i; : inti;:gerj 

BEGIN 

F-GR I t ■■■■■■■ 1 TO 50 DO 

R3ceresultst;;i;:i :~ 

e::nd; 

This example declares the variable Raceresults as a 50-component array 
of Times. The FOR statement assigns zero to each component in the 
array. 

Example 2 

TYPE Strinsi ■■■■■■ PACKED ARRAY i:i..lO:] OF CHAR? 
VAR CoiTiFOser' Wordr Empty t Striri<=iy 

BEGIN 

Wo rd t ~ ' en^ r OSS i n.^ ' r 

Compose r J ~ ' C ♦ F-' * E. ♦ Bach ' ? 

EmF'tw ♦= ' 
END? 

This example declares three string variables. It assigns string 
constants to the variables Word and Composer, and assigns a string of 
10 spaces to the variable Empty. 

Example 3 

CONST Days --^ 31? 

TYPE Weather "- (Rairu' Snowr Surmyi' Cloudyi' Foi3^y)? 
Month --• ARRAY III ♦♦DAYS.! OF Weather? 

This example shows how you can use a constant identifier in the index 
type. The indices of arrays of type Month range from 1 to the value 



of the constant Days. 



2.3.2 Record Types 



The record is a convenient way to organize several related data items 
of different types. A record consists of one or more fields, each of 
which contains one or more data items. Unlike the components of an 
array, the fields of a record can be of different types. The record 
type definition specifies the name and type of each field. 
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Format 

RECORD 



{ field id : type [[ ; field id : type...]] ; [variant clause ]] } 
{ variant clause } 

END; 

where : 

field id specifies the names of one or more 

fields. The names must be identibfiers 
and must be separated by commas. 

type specifies the type of the corresponding 

field(s) . A field can be any type. 

variant clause specifies the variant part of the 

record. See Section 2.3.2.1 for the 
format of a variant clause. 

The names of the fields must be unique within the record, but can be 
repeated in different record types. For instance, you could define 
the field NAME only once within a particular record type. Other 
record types, however, could also have fields called NAME. 

The values for the fields are stored in the order in which the fields 
are defined, for example: 

VM'< Te3nfi_..Rec t RE^CORD 

Wiirs t INTEGER? 
L. o s s e s J I N 1 1;:" G E R r 
Percent : REAL 
END? 

The values for these fields are stored in the order Wins, Losses, 
Percent . 

To refer to a field within a record, specify the name of the record 
variable and the name of the field, separated by a period. For 
example, Team_Rec .Wins , Team _Rec . Losses , and Team_Rec .Percent refer to 
the three fields of the record Team_Rec declared above. You can 
specify a field anywhere in the program that a variable of the field 
type is allowed. Thus, you could write: 

Teanri-Rec ♦ Wins J ~= 9? 

TeaiTi._Rec* Losses l~ 4? 

Records can include fields that are themselves records, for example: 

VAR Order : RECORD 

Part : INTEGER? 
Received : RECORD 

Month J (Jsrif Febr Mary AFry May? Jun? 
Jul)- Au^ir Sepr Octy Novr Dec)» 

Day : l,.31r 

Year : INTEGER 

END? 
Inventory I INTEGER 
END? 
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The fields in this record are referred to as Order. Part, 
Order .Received .Month , Order .Received .Day , Order .Received .Year , and 
Order . Inventory . The WITH statement provides an abbreviated notation 
for specifying the fields of a record (see Section 5.5). 



2,3.2.1 Records with Variants - To allow a record to contain 
different data types at different times, you can define a record 
variant. To do this, specify one or more variants in the TYPE 
definition. A variant is a field or group of fields that can contain 
a different type or amount of data at different times during 
execution. Thus, two variables of the same record type can contain 
different types of data. 

To specify a variant, include a variant clause in the record type 
definition. The variant clause must be the last field in the record. 



Format 



CASE tag field OF 

case-label list : ( [[field id : type] [[; field id : type...] ) ; 



where : 



tag field indicates the current variant of the record. 

You can specify the tag field in two ways: 

1 . tag name : tag type 

If you use this form, the tag field is a 
field in the record that is common to all 
variants. Tag name and tag type define the 
name and type of this field. The tag type 
can be any scalar type except a REAL type. 
You can use the tag field in the same way 
that you use any other field in the record; 
that is, you can use the record . fieldname 
format. 

2 . tag type 

If you use this form, you must keep track of 
the currently valid variant. The tag type 
can be any scalar type except a REAL type. 

case-label list specifies one or more constants of the tag 

field type. 

field id specifies the names of one or more fields. 

The field names must be identifiers and must 
be separated by commas. Note that, instead 
of the field identifiers, you can specify 
another variant clause, as in the last 
example in this section. 

type specifies the type of the variant field. The 

type cannot be a FILE type. 
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When you specify the tag field in the first form (tag name : tag 
type) , you should reference only the fields in the currently valid 
variant. The following example shows the use of this form: 

type: Name ^■■'- F'ACKED ARF^AY i:i»«20:i OF CHAR? 
Day "- (Monc Tuey W(-?dr Thuy l-ri)j 
Stock ■-■' RECORD 

Part : 1,.7999J 

Stac?k Quantity : INTEGER? 

Supplier t Name? 

CASE Onorder : BOOLEAN OF 

T F< U E. I ( P r o m i s e d J D a y ? 

r d e t^ _. Q u a i". t i. t y : IN J E G E R ? 
Price: REAL)? 
F A L S E:.' J ( I. a s t .... S h i p m e ri t t If a y ? 

R e c .._ a LI a II t i t y J IN T E G E R ? 
Cost : REAL) 
END? 

Tn this example, the last three fields in the record type vary 
depending on whether the part is on order. The tag name Onorder is 
defined in the variant clause. Records for which the value of Onorder 
is TRUE will contain information about the current order. Records for 
which this variable is FALSE will contain information about the 
previous shipment. 

In the second way of specifying the tag field, you use only a tag 
type, as in this example: 

TYPE Name ■■■■■■■■ PACKED ARRAY [:i.»20.1 OF CHAR? 
Date ■■■■■■^ INTEGER? 
S e >( ■"• ( I'-' e m a 1 e y Ma 1 e ) ? 
Hasp ■■■■^- RECORD 

F-'atient J Name? 
Birthdate : Date? 
A^ie : INTEGER? 
CASE Sex OF 

Female : (Births : 1,»30)? 
Male : () 
END? 

In this example, you must keep track of the currently valid variant. 

You can define a variant only for the last field in the record. 
Variant fields can, however, be nested, as in the following example: 

TYPE Name - PACKED ARRAY i:;i,»203 OF CHAR? 
Date === INTEGER? 
Sex -=■ (Female)' Male)? 
Hosp === RECORD 

Patient J Name? 

Birthdate t Date? 

A.«ie ; INTEGtIR? 

CASE Parsex : Sex OF 

Male : ()? 

Female : (CASE Births : BOOLEAN OF 
FALSE : ( ) ; 

TRUE : (Nokids : INTEGER)) 
END? 

This record type contains the name, birthdate, age, and sex of all 
patients. In addition, it includes a variant field for each woman 
based on whether she has had any children. A second variant, which 
contains the number of children, is defined for women who have given 
birth. 
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2.3.2.2 Assignincj Values to Records - To assign values to a record 
variable, use an assignment statement to specify a value for each 
field of the record. The following example shows the declaration of a 
record and the assignment of values to two of the fields. 

TYPE ROSTEI-< ^= RECORD 

Name: I"' A C K E B A R R A Y i: ;U . 3 ll F C H A R ? 
Number? INTEGER? 
Grade J REAL? 
END? 

MAR Student t ROSTER? 

Teii>t:lyTest2yTest3 : INTEGER? 



BEGIN 



WRITELN ('Enter your name*')? 

READLN ( Student ♦ Name ) ? 

Student ♦Grade J=" (Testl + Test2 + Test3) / 3? 



END? 

If you are initializing a record with a variant clause, you must 
always specify a value for the tag field, even if it has no tag name. 
Specifying a value for the tag field, ensures that PASCAL initializes 
the correct variant, for example: 

TYPE Sex =-= (Malec Female)? 
Person ■■'^ RECORD 

DirthdateJ RECORD 

Month: 1..12? 
Day: l.,31? 
Year: INTEGER? 
END? 
A^e: INTEGER? 
CASE sex of 

Male: <Bearded:BOOLEAN)? 
Female: (N_.Children: INTEGER) ? 
END? 
^fitR Dad: Person := ((5r 15» 1921 )r 62r Maler TRUE)? 



2.3.2,3 Record Type Compatibility - Two records are compatible if 
their types are identical or equivalent, for example: 

TYPE Life = RECORD 

Born : INTEGER? 
Died : INTEGER 
END ? 
Plantlife == Life? 

VAR Mom> Dad : Life? 

Coleus J Plantlife? 

The record variables Mom, Dad, and Coleus are all compatible. Mom and 
Dad are both of type Life, which is equivalent to type Plantlife. 
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Records of differing types are compatible if they meet the following 
cr i ter ia : 

• They have the same number of fields. 

• Corresponding field types are compatible. 

• Both are packed, or neither is packed. If the types are 
packed, corresponding fields of subrange types must have 
equal bounds. 

The following type is also compatible with Life and Plantlife: 

type: Cog rdB ^^ RECOFvTi 

X : INTEGERr 

Y : o»«;i.oo 

END? 

The integer subrange 0..100 is compatible with the type INTEGER. 
However, PASCAL does not check for valid assignments to fields of 
subrange types. If you assign a record of type Life to a record of 
type Coord, you must ensure that the value of the field Died is within 
the subrange 0..100. An out-of-range assignment does not result in an 
error message. 

If the records have variants, these criteria also apply: 

• The records must have the same number of variants. 

• Corresponding variants must have the same number of fields. 

• Corresponding field types within corresponding variants must 
be compatible. 

• The case labels associated with the variants must agree in 
number, but need not agree in value. 

• Corresponding variants in structurally compatible records 
must have identical tag constant values. 

• The tag constant lists in each record must be identical. 
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For example, assume the program includes the following TYPE 
def ini t ion: 

TYF-'E Lets ■■■■■: ' A ' ♦ . ' D ' ? 

Info ■■■■■■■■ RECORD , 

Size : INTEGER? 
(;; 3 1 o r^ i e s i INT E G E R • 
Protein I * * 40? 
Carb : INTEGER? 
CASE ^^its i Lets OF 

' A ' ■- ' C ' r ' D ' I ( ) ? 

'B' J (Niacins Thiamine I BOOLEAN) 
END? 
Grades ■■■■■^ 'A' ♦ ♦ 'F' ? 
School ■■^■■- RECORD 

Studentno : INTEGER? 
Class I 1 ♦ ♦ 5? 
Hours : lt»30? 
I ncoiTip I e tes t 1 ♦ ♦ 6 ? 
CASE Average t Grades OF 
' B ' » ' C ' y ' D ' : ( ) ? 

'A' : (Sendletr Firstsem : BOOLEAN) 
END? 

The types Info and School are compatible. If you assign a variable of 
one type to the other, hov^ever, you must be sure that both contain the 
same variant. 



2,3.2.4 Record Examples - 

Example 1 

TYPE Taxes •= RECORD 

Year : INTEGER? 

Gross ♦ REAL? 

Net : REAL? 

Deductions { INTEGER? 

Itemized : BOOLEAN? 

Interest t ARRAY Cl»»53 OF REAL 

END? 

VAR Fed : Taxes := <1981r 25234* 12 » 18789* 00 r At JRUEr 

(5 of 0,05))? 

This example declares and initializes the record Fed of type Taxes. 
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Example 2 



TYF--E Striri!^ - F-'ACKFD ARF<AY LI. ♦»20:i OF CHAF^;? 
F-'ersonal - F^F-COF^D 

NiBine J St rill. <^ 5 
Address : RFCGF^D 

Number : INTF^GFiiRr 

S t T^ e e t f J own t S 1 1^ i ri <}i ? 

Zip : 0»t 99999 

e:ndj 

Aae t . » 150 

f;:nd; 

KfM'< F a c '..1 .1 I 'r.if ha ^> c o t y S t u d e ri t J F' e r <:> o ri a .1 • 

bf:gin 

F- a c I..I J. t y t N a iri e I- ' N i k 1 a u s U) i r^ t li ' ? 

F" a c' u 1 L ^j ♦ A d d i' e s s * N u in b e r I- 5 r 

F" a c i,.i .1 1 'J t- A d d r e s s ♦ S t t^ e e t I -■ ' (.■.• 1 a u s 1 u s s t r' a s s e 



f:nd? 

The type Personal contains the field Address, which is of a record 
type. To assign values to each of the fields of the record Address, 
you must also specify the record Faculty in the assignment statement. 



2.3.3 Set Types 

A set is a collection of data items of the same scalar type, which is 
known as the base type of the set. Unlike arrays and records, 
elements in the set cannot bo accessed individually. In PASCAL, you 
use a set as an individual unit. The type definition specifies the 
values for each element in the set: 

Format 

TYPE identifier = SET OF base type 
wh e r e : 

identifier specifies the type identifier for the set. 

base type specifies the data type. Each element in the set 
must be of this data type. You can use the 
identifier or definition of any scalar type except 
a real TYPE. 

A set can have up to 256 members, and the value of each member must be 
between and 255. Therefore, real numbers or integers outside the 
range to 255 cannot be set elements. 

After defining a base type, you can declare set variables of that 
type, for example: 

TYF-'E;: Sports._.E«uip = SETT OF" (Racouetr Shoes » Palls r E^ootsu 

Skisf Polesf God.^.lesi' Swimsuit)? 

VAR Ski.-.Eouip)' Teririis._Eouipy SwiiTi.._t"«uip!'Sleep._EGuip I Sports -.Eauip J 
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Sets are compatibiLe if their base types are identical or equivalent, 
for example: 

TYPE VxtaiTiiniii ■■■■-- SET OE (Ay EU y B2y B6y B12y Cy D y Ey K)y 
N I..I t r .i e ri t. s "■- M i t a iri i i"i <h y 

"v'AR Water-so.l. uh;).T.ey Eat soluble t Vi tairi.ins y 
D e f .u;.^ ;l e I vb { N •. j t r i e r vt s y 

The VAR section specifies three mutually compatible sets. Sets with 
compatible base types are also compatible, for example: 

^^AR ASCII : SET OE CHAR? 

Specials : SET OE '!'.*'/'? 

These two sets are compatible because the base type of Specials is 
compatible with the ASCII character set. 

Packing has no effect on set compatibility except when passing sets as 
VAR parameters. An unpacked set is compatible with a packed set if 
both sets meet the criteria above. 

You can build set expressions by using the set operators described in 
Chapter 3. Set operators allow you to specify set intersection, 
difference, union, inclusion, and containment. In addition, you can 
assign a set expression to a set variable. The base type of the 
variable must include all members of the set to which the expression 
evaluates . 

Example 1 

TYPE Caps ::-- BET OF CHAR? 

MAR MawE?l i Caps :== C ' A ' y 'E' y ' I ' y '0' y 'U' D ? 

Consonant : Caps := C 'B' ♦ ♦ 'D' y 'F' ♦ ♦ 'H' y ' J' ♦ » 'N' y 

' P ' ♦ ♦ ' T ' y ' M ' ♦ ♦ ' Z ' 3 y 

These declarations specify the set type Caps and two set variables. 
Vowel and Consonant. The set Vowel is initialized with the set of 
vowel characters as initial values. The set Consonant is initialized 
with the set of consonants. 

Example 2 

VAR AsJes : SET OF 1»»70 J= t.5y lOy 15y20y 25y30y 35y 40y 45y 50y55y603 ? 



This example declares and initializes a set with an integer base type 
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2.3.4 File Types 

A file is a sequence of data components of the same type. The number 
of components in a file is not fixed; a file can be of any length. 
The file type definition specifies the type of the file components. 

Fo rma t 

TYPE identifier = FILE OF component type 

where : 

component type specifies the type of the components of the 

file. The component type can be any scalar 
or structured type except a file type or an 
array or record type containing a file 
element or field . 

The arithmetic, relational. Boolean, and assignment operators do not 
work on file variables or structures containing file components. For 
example, you cannot assign one file variable to another file variable, 
nor can you initialize a file variable. 

Type compatibility for files applies only to file parameters. Two 

file parameters are compatible if their components are compatible and 

if both are packed or neither is packed. You can pass a file only as 
a VAR parameter. 

PASCAL automatically creates a buffer variable for each file variable 
you declare. The type of the buffer variable is the same as the type 
of the file components. To denote the buffer variable, specify the 
name of the associated file variable followed by a circumflex ("), for 
example: 

TYPE Scores --^ FILE Of INTEGER? 
MAR Math....Score<;i J Scores? 

PASCAL creates Math_Scores" as an integer buffer variable associated 
with the file Math_Scores. The buffer variable takes on the value of 
the file at the current file position. The predeclared input and 
output procedures move the file position, thus changing the value of 
the buffer variable. 

Example 1 

VAR Truthvals t FILE OF' BOOLEAN? 

This declaration specifies a file of Boolean values. The buffer 
variable for this file is denoted by Truthvals". 

Example 2 

TYPE Names - PACKED ARRAY ri»»20D OF CHAR? 

DatB....Flle ===■• FILE OF" Names? 
VAR Accept....Listr ReJect_.List r Wait-List : Dat3„File? 

This example defines the array type Names and the file type DataFile, 

which contains a list of names. The VAR section specifies three file 

variables of type DataFile, with associated buffer variables 
Accept List", Reject List", and Wait List". 
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Example 3 



i^AR RESULTS 



FILE Of" 


■ RECORD 






r r^ :i a 1 t 


INTEGER? 






Date I 


RECORD 








Month : (Jar.y Feby 


Mary Apry Mayy J 


i.jriy 




>.Jul y Au<=< y 


Sepy Octy Novy De 


c ) ? 




Ba\:{ : l««3;ly 








Year I INTEGER 








END? 






Teilipy f- 


•res'sure J INTEGER? 






Y ;L e 1 d y 


Purit^i J REAL 






END? 









The VAR Declaration specifies a file of records. To access the fields 
of the record components, you specify Resul ts" .Tr ial , 
Resul ts" .Da te .Month , and so on. 



2.3.4.1 Internal and External Files - A file that is local to a 
program or subprogram is called an internal file. You can use an 
internal file only within the scope of the program or subprogram in 
which it is declared. The system retains an internal file only during 
execution of the declaring program or subprogram. After execution the 
file is no longer accessible. The system creates a new file variable 
with the same name the next time it executes the declaring unit. The 
contents of the old file are not available. Internal files are not 
specified in the program heading. Only internal files can be 
components of structured types. 

An external file exists outside the scope of the program in which it 
is declared. An external file can be created by the current PASCAL 
program, another PASCAL program, or a program written in another 
language. The system retains the contents of external file variables 
after the execution of the program. You must specify the names of 
external file variables in the program heading. External files cannot 
be part of a structured type. 



2,3.4.2 Text Files - A text file is a file with components of type 



CHAR. PASCAL defines a file type called TEXT, 
file, specify a variable of type TEXT, for example: 



VAR PoeiTi 



TEXT? 



To declare a text 



The text file variable POEM is a file of characters. Text files are 
divided into lines. Each line ends with a line-separator character. 
You cannot use this character directly, but you can refer to it 
indirectly through the predeclared procedures READLN and WRITELN and 
the predeclared function EOLN. 

The predeclared file variables INPUT and OUTPUT are files of type 
TEXT. These files are the defaults for all the predeclared text file 
procedures described in Chapter 7. Note that TEXT is not equivalent 
to FILE OF CHAR. 

Example 

VAR Guide » Manual J TEXT? 

This example declares the Variables Guide and Manual as text files. 
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2.4 POINTER TYPES 

Normally, variables have the same lifetime as the program or 
subprogram in which they are declared. Program- level variables are 
allocated in static storage, and subprogram-level variables are 
allocated on the stack. Some applications, however, require different 
lifetimes or an unknown number of variables of a certain type. PASCAL 
allows you to use dynamic variables to fill these requirements. 

Dynamic variables are dynamically allocated as needed during program 
execution. Unlike other variables, dynamic variables are not named by 
identifiers. Instead, you must refer to them indirectly with 
po inters . 

A pointer type thus allows you to declare any number of pointer 

variables to refer to dynamic variables of a specified type. Each 

pointer variable assumes as its value the address of a dynamic 
variable. 

The pointer type definition specifies the type of the dynamic variable 
to which pointers of the pointer type refer. 

Fo rma t 

TYPE identifier = "base-type identifier 

wh e r e : 

base-type identifier indicates the type of the dynamic 

variable to which the pointer type 
refers. The base type can be any type. 

Note the following example: 

type: Myrec ■■■■■■ F\'ECORD 

AyByC : j:nte:(3ER 

tTNIJy 

P t V _.. r o _. M \:f V e c ■■■■■■ '" M y TM-? c ? 
VAR M : Ptr...To....Myrecy 

Variables of a pointer type point to variables of the base type, and 
are said to be bound to that type. To indicate a pointer variable, 
specify its name. To indicate the dynamic variable to which a pointer 
is bound, specify the pointer name followed by a c ircumf lex ( '') . For 
example, M is a pointer variable bound to records of type Myrec. 
Specify fA" to denote the record variable to which M points. 
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Pointer type definitions are the only place in a PASCAL program where 
you can use an identifier before you define it. PASCAL allows you to 
use the base type identifier in a pointer type definition before you 
define the base type, for example: 

T Y !"' E P t V .... T o .... M o v .i. e "•• '" M a v :i. e ? 

Name ■■■■•■■ PACKED ARRAY i::lw203 OF CHAR? 
Mov:i.e ■■■■■■■■ RECORD 

I' i 1 1 e 9 D :L r e c.^ tor I N 3 tri e » 

Year t INTEGER? 

Stars : FILE OF NaiTie? 

Next J Ptr....To....Mov.i, e 

END? 

The TYPE section specifies the type identifier Movie before defining 
the type Movie. 

The value of a pointer is the storage address of the variable to which 
it points. Thus, in the example above, the value of the field Next is 
a pointer to (or address of) a dynamic record variable of type Movie. 

Pointers assume values at initialization, by assignment, and through 
the NEW procedure. The value of a pointer can be any legal storage 
address. The value NIL indicates that the pointer does not currently 
specify an address. Thus, a NIL pointer does not point to a variable. 

PASCAL allows you to define pointers to types containing files, for 
example: 

TYPE X:^ '-^Y? 

Y=:-- RECORD 

P : INTEGER? 

Q : ARRAYr::K ,31 OF TEXT 

END? 

VAR m:x? 

The pointer type X points to record type Y, which contains a file 
component in field Q. The files denoted by Q are never closed until 
execution of the program terminates, unless you use the CLOSE 
procedure. For example, to close the files defined in the TYPE 
section above, you must call CLOSE with the parameters M".Q[1], 

M'^.Qr2] , M'^.orsi . 

You can assign the constant NIL to a pointer as follows: 

M :=== NIL? 

As a result of the assignment, the pointer variable M does not point 
to a variable. NIL is the only value you can specify to initialize a 
pointer . 
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Example 



TYF-'E: NaiT.e -^ ARRAY LI,. 3 Oil DP CHAR? 
F--tr...To....H:i.ts ■■^^■- '-|lits? 
Hits ■■■■"- Rt'CORD 

T :i. 1 1 (■:o y A r^ t .i. s t ¥ C o iti f o s e v X N a iri e ? 

Weeks....(:)n...,Ch<;?rty N....So:i.d X INTE^GER? 

F:i.r St.... Version J BOOLEAN 

END? 

VAR Top ten S ARRAY i::l..lO::i OF Ft r ....To....Hi ts ? 
I : INTEGER? 
BEGIN 

FOR I :- 1 ro :i.o DO 
Topteni:;i::i x^--- nil? 



END? 




2.5 PACKED STRUCTURED TYPES 

You can pack any of the structured types by specifying PACKED in the 
type or variable declaration. Packed data items are stored as densely 
as possible. 

Forma t 

PACKED type definition 
wh e r e : 

type definition defines an array, record, set, or file type. 

You can initialize all packed structures in the VALUE or VAR section 
in the same way that you initialize an unpacked structure of the same 
type. In general, packed data items require less storage space than 
unpacked data items of the same type. However, execution is usually 
slower with packed data items. 

In PASCAL, a packed array of characters specifies a string variable. 

Example 1 

TYPE Ranges == PACKED RECORD 

Word : 0,. 65535? 
Byte : 0,. 32767? 
Bit : BOOLEAN 
END? 

This example defines a record type with three fields, each of which is 
packed as densely as possible. 
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Example 2 



^.^AR Ci.ty....Census t PACKED M<Rfi\Y LI.. 251 OF" 2500* ♦50000? 

:i: ; integer? 

BEGIN 

FOR i: J- ;L TO 25 DO 

C i. t \j .... C e ri s u s I" 1 1 J =■ ? 



END? 

This example declares the variable City_Census as a 25-element array 
of integer values in the subrange from 2500 through 50000. A value of 
is assigned to each element of the array. 



2.6 TYPE COMPATIBILITY 

Type compatibility rules determine the operations and assignments that 
you can perform with data items of different types. Two scalar types 
are compatible if their type identifiers are declared equivalent in 
the TYPE section. In addition, a subrange type is compatible with its 
base type, and two subranges of the same base type (or equivalent base 
types) are compatible. 

For structured and pointer types, PASCAL enforces structural 
compatibility. Two structured (that is, arrays, records, files, and 
sets) or pointer types are compatible if their structures are 
identical . 

The way PASCAL determines structural compatibility depends on the 
types involved. For instance, the requirements for record 
compatibility differ from those for array compatibility. 

PASCAL uses compatibility rules in the following three contexts: 

1. Expression compatibility 

2. Assignment compatibility 

3. Formal and actual parameter compatibility 

Expression compatibility determines the types of operands you can use 
in an expression. See Chapter 3 for information on expressions. 

Assignment compatibility determines the types of values you can assign 
to variables of each type. Assignment compatibility rules apply to 
value initializations, assignment statements, and value parameters. 
Assignment compatibility is described with the assignment statement in 
Section 5.2. 

Formal and actual parameter compatibility determines the types of data 
you can pass in a parameter list. Value parameters follow the rules 
for assignment compatibility. Variable parameters follow somewhat 
different rules. Value and variable parameters are described in 
Chapter 6. 
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EXPRESSIONS 



An expression is a symbol or group of symbols that PASCAL can 
evaluate. These symbols can be constants, variables, or functions, or 
any combination of constants, variables, and functions, combined with 
operators. The simplest expression is a single variable or constant. 

This chapter lists the various operators that PASCAL provides along 
with the rules for forming arithmetic, relational, logical, and set 
expressions . 



3.1 OPERATORS 

PASCAL provides the following types of operators: 

• Arithmetic operators (such as +, -, /) 

• Relational operators (such as <, >, =) 

• Logical operators (such as AND, OR, NOT) 

• Set operators (such as IN) 

3.1.1 Arithmetic Expressions 

An arithmetic expiression usually provides a formula for calculating a 
value. To construct an arithmetic expression, you combine numeric 
constants, variables, and function identifiers with one or more of the 
operators from Table 3-1. 
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Table 3-1: Arithmetic Operators 



Operator Example Meaning 



+ A+B Add A and B 

A-B Subtract B from A 

* A*B Multiply A by B 

** A**B Raise A to the power of B 

/ A/B Divide A by B 

DTV A DTV B Divide A by B and truncate the result 

MOD A MOD B Produce the remainder after dividing A by 

B; B must be greater than 

The addition, subtraction, multiplication, and exponentiation (+, -, 
*, and **) operators work on both integer and real values. They 
produce real results when applied to real values and integer results 
when applied to integer values. If the expression contains values of 
both types, the result is a real number. The only exception to these 
rules concerns exponentiation. PASCAL defines the results of an 
integer raised to the power of a negative integer as follows: 

Base Exponent Result 

Negative or Error 

1 Negative 1 

-1 Negative and odd -1 

-1 Negative and even 1 

Any other Negative 

integer 

For example, the expression l**(-3) equals 1; (-l)**(-3) equals -1; 
(-l)**(-4) equals 1; and 3**(-3) equals 0. 

The division ( /) operator can be used on both real and integer values, 
but always produces a real result. Use of the division (/) operator 
can therefore cause errors in precision in expressions involving 
integers. 

The DIV, MOD, and REM operators apply to integer values only. 

DIV divides one integer by another, producing an integer result. DIV 
truncates the result; that is, it drops any fraction. It does not 
round the result. For example, the expression 23 DIV 12 equals 1, and 
(-5) DIV 3 equals -1 . 

The MOD and REM operators return the remainder after dividing one 
operand by another. Both operators can be used only with integer 
values and always produce integer results. 

The MOD operator can be used only when the divisor is greater than 0; 
it always returns a positive result. For example, the expression 5 
MOD 3 (5 modulo 3) returns a value of 2, and (-5) MOD 3 returns a 
value of 1. 
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The REM operator can be used on integers of a] 1 sizes and retains the 
sign of the dividend. For example, the expression 5 REM 3 returns a 
value of 2, the expression (-5) REM 3 returns a value of -2; and the 
expression 5 REM (-3) returns a value of 2. 

In arithmetic expressions, PASCAL allows you to mix integers, real 
numbers (single and double precision), and integer subranges. When 
you assign the value of an expression to a variable, you must ensure 
that the types of the variable and the expression are compatible. In 
general, you can assign an integer expression to a real variable. 
However, you cannot assign a real expression to an integer variable. 

Table 3-2 ] ists the type of the result for all possible combinations 
of arithmetic operators and operands. 



Table 3-2: Result Types for Arithmetic Expressions 



Operator 
(Operation) 



Type of First 
Operand 



Type of Second 
Operand 



Type of 
Result 



(exponentiation] 



(mul tipl ication) 



(division) 



INTEGER 
INTEGER, REAL 
DOUBLE 

INTEGER 
INTEGER 
REAL 
DOUBLE 

REAL, INTEGER 
REAL, INTEGER 
DOUBLE 



INTEGER 

REAL, DOUBLE 

INTEGER, REAL, 
DOUBLE 

INTEGER 

REAL 

INTEGER, REAL 

INTEGER, REAL, 
DOUBLE 

DOUBLE 

REAL, INTEGER 

INTEGER, REAL, 
DOUBLE 



INTEGER 

REAL 

DOUBLE 

INTEGER 
REAL 
REAL 
DOUBLE 

DOUBLE 

REAL 

DOUBLE 



DIV, MOD, REM 



REAL, INTEGER 
INTEGER 



DOUBLE 
INTEGER 



DOUBLe 
INTEGER 
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Table 3-2: Result Types for Arithmetic Expressions (Cont.) 



Operator 
(Operation) 



Type of First 
Operand 



Type of Second 
Operand 



Type of 
Result 



(division with 
truncation , 
modulus , 
and remainder) 



+ .- 



( addition, 
subtraction) 



INTEGER 
INTEGER 

REAL 
DOUBLE 

REAL, INTEGER 



INTEGER 
REAL 

REAL, INTEGER 

REAL, DOUBLE, 
INTEGER 

DOUBLE 



INTEGER 
REAL 

REAL 
DOUBLE 

DOUBLE 



3.1.2 Relational Expressions 

A relational expression or condition tests the relationship between 
two expressions. A relational expression consists of two scalar or 
string variables or arithmetic expressions, separated by one of the 
relational operators listed in Table 3-3. 



Table 3-3: Relational Operators 



Operator 



Example 



Meaning 



<> 
> 

> = 
< 
< = 



A = B A is equal to B 

A <> B A is not equal to B 

A > B A is greater than B 

A >= B A is greater than or equal to B 

A < B A is less than B 

A <= B A is less than or equal to B 



Note that the two characters in each of the <>, >=, and <= operators 
must appear in the specified order and cannot be separated by a space. 

PASCAL produces a Boolean result when it evaluates a relational 
expression. Every relational expression therefore evaluates to TRUE 
or FALSE. For example, the condition 2 < 3 is always TRUE; the 
condition 2 > 3 is always FALSE. 
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3.1,3 Logical Expressions 

Logical expressions test the truth value of combinations of 

conditions. A logical expression consists of two or more expressions 

that have Boolean results, separated by one of the logical operators 
in Table 3-4. 

Table 3-4: Logical Operators 



Operator Example Result 



AND A AND B TRUE if both A and B are TRUE 

OR A OR B TRUE if either A or B is TRUE, or if both 

are TRUE 

NOT NOT A TRUE if A is FALSE, and FALSE if A is TRUE 

The AND and OR operators combine two conditions to form a compound 
condition. The NOT operator reverses the truth value of a condition, 
so that if A is TRUE, then NOT A is FALSE. 

As with relational expressions, the result of a logical expression is 
a Boolean value. Note that the entire logical expression is always 
evaluated, even if the expression value could be uniquely determined 
from only a part of the expression. 



3.1.4 Set Expressions 

You can use the operators in Table 3-5 with set variables and 
constants . 

Table 3-5: Set Operators 

Operator Example Meaning 

+ A+B Union of sets A and B 

* A*B Intersection of sets A and B 

A-B Set of those elements of A that are not 
also in B 

A=B Set A is equal to set B 

<> AOB Set A is not equal to set B 

<= A<=B Set A is a subset of set B 

>= A>=B Set B is a subset of set A 

IN A IN B A is an element of set B 
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The set operators (+, *, -, -, <>, <=, and >=) require both operands 
to be set values. The IN operator, however, requires a set expression 
as its second operand and a scalar expression of the associated base 
type as its first operand, for example: 

2*3 IN [:i ♦ »i.o:.i 



The value of this expression is TRUE, 
which is a member of the set ri..lO]. 



because 2*3 evaluates to 6, 



3.1.5 Precedence of Operators 

The operators in an expression establish the order in which PASCAL 
evaluates the expression. Table 3-6 lists the order of precedence of 
the operators, from highest to lowest. 



Table 3-6: Precedence of Operators 



Operators 



Precedence 



NOT 
** 

*, /, DIV, MOD, REM, AND 

*, -, OR 

=, <>, <, <=, >, >=, IN 



Highest 



Lowest 



PASCAL evaluates operators of equal precedence (such as + and -) from 
left to right. You must use parentheses for correct evaluation when 
you combine relational operators, for example: 



A 



-^- X AND B 



Y 



Without parentheses, PASCAL attempts to evaluate this expression as 
A<= (X AND B) <=Y and generates an error. The expression needs 
parentheses, as follows: 



(A 



X) AND (B 



Y) 



To evaluate the rewritten expression, PASCAL compares the truth values 
of the two relational expressions. 
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You can use parentheses in any expression to force a particular order 
of evaluation, for example: 

Expression: Evaluates to: 



8*5 D.TV 2 ••■ 4 16 

8 * 5 DlKf <2 - 4) -20 

PASCAL evaluates the first expression according to the normal rules 
for precedence. First, it multiplies 8 by 5 and divides the result 
(40) by 2. Then, it subtracts 4 to get 16. The parentheses in the 
second expression, hov/ever, force PASCAL to subtract before 
multiplying or dividing. Hence, it subtracts 4 from 2, getting -2. 
Then, it divides -2 into 40, with -20 as the result. 

Parentheses can also help to clarify an expression. For instance, you 
could write the first example as follows: 

< (8 * 5) IMK> 2) •• 4 

The parentheses eliminate any confusion about how the expression is to 
be evaluated. 



3.2 SCOPE OF IDEMTIFIERS 

The scope of an identifier is the part of the program in which you 
have access to the identifier. In a PASCAL program, the scope of a 
constant, type, variable, or subprogram identifier is the block in 
which the identifier is declared. Figure 3-1 illustrates the scope of 
identifiers declared at various levels. 

Declarations in the main program block specify global identifiers, 
which can be accessed in the main program and in all nested 
subprograms. For example, A and B in Figure 3-1 are global 
identifiers. They can be accessed from any level in the program. 

Declarations in subprogram blocks specify local identifiers. You can 
use a local identifier in the subprogram that contains its declaration 
and in all its nested subprograms. For example, the identifiers C and 
D are local to procedure Level_lA and its nested subprograms Level_2A 
and Level_3A. You can use C and D in any of these subprograms, but 
not in the main program or in the subprograms Level_lB, Level_2B, and 
Level 2C. 
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PROGRAM Level_.0 (INPUTr OUTPUT)? 

VAR ArB : integer; 



PROCEDURE Level_lA (Zr Y)? 

VAR c»ii : integer; 



FUNCTION Level„2A (X) : INTEGER? 

VAR E : real; 



PROCEDURE Level._3A (W); 




<v»AR F : real; 




end; ( *end procedure Level. 


..3A*) 



end; (*erid function Level_2A*) 



end; (*end procedure Level_. lA*) 



PROCEDURE Level_lB (My Ih T); 

var g : integer; 






PROCEDURE Level„2B (Sr R» 0); 

<^AR H J real; 

♦ 

* 
end; (*end procedure Level ..2B*) 












PROCEDURE Level_2C (P, 0); 

VAR B : boolean; 
J : char; 

* 

end; <*end procedure Level._2C*) 




• 
♦ 
* 

end; < 


*end procedure Level_lB*) 





END, <*end proslrsm Level-O*) 



Figure 3-1: Scope of Identifiers 
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Similarly, local identifiers declared in Level_lB are accessible to 
Level_lB, Level_'>B, and Level_2C, but not to Level_lA, Level_2A, 
Level_3A, or the nain program. 

In general, once you define an identifier, it retains its meaning 
within the block containing its declaration. You can, however, 
redefine an identifier in a subprogram at a lower level. If you do 
so, the identifier assumes its new meaning only within the scope of 
the redefining block. Outside this block, the identifier keeps its 
original meaning,. For example, B is declared at program level and 
redefined in Level_2C. Within the scope of Level_2C, B denotes a 
Boolean variable.. Everywhere else in the program, however, B denotes 
an integer. 



The identifiers accessible to each routine in Figure 
below. 



3-1 are listed 



Routine 



Va r iabl es 



Main program 
Level.... :L A 
Level. ...2 A 
Level.. ..3A 
Level„lB 
Level.._2B 
Level. ...2C 



Ay 


B 


Ay 


B 


Ay 


B 


Ay 


B 


Ay 


B 


Ay 


B 


Ay 


B 



( :Lnte<.-.?er ) 
( inteiiter) y 
( inte.^^er ) • 
( irite<-U?r ) y 
( i. rrbe<.^er ) y 
( inte^^er ) y 
(Boolean) y 



Cy 

Cy 



Gy 

J 



3-9 



CHAPTER 4 
PROGRAM HEADING AND DECLARATION SECTION 



The first two parts of a PASCAL program are the program heading and 
the declaration section. The program heading specifies the program 
name and the input and output files. 

The declaration section can contain the following sections: 

• LABEL declares labels for use by the GOTO 

statement 

• CONST defines identifiers to represent 

constant values 

• TYPE defines user-defined, structured, 

and pointer types 

• VAR declares and optionally initializes 

variables of all types 

• VALUE initializes variables 

• PROCEDURE and FUNCTION declare subprograms 

Your program need not include all these sections, but the sections 
that are present must appear in the order listed above. Although you 
''an specify many labels, constants, types, variables, and subprograms, 
ach section can appear only once in each declaration section. 



c 
e 

This chapter describes the program heading (Section 4.1), label 
declarations (Section 4.2), and constant definitions (Section 4.3). 
It also outlines type definitions (Section 4.4), variable declarations 
(Section 4.5), and value declarations (Section 4.6). Chapter 6 
describes the use of procedures and functions in detail. 



4-1 



PROGRAM HEADING AND DECLARATION SECTION 

4.1 THE PROGRAM HEADING 

The program heading begins the PASCAL program. It gives the program a 
name and lists the external file variables the program uses. 

Format 

|[ roVERLAIDl ]] PROGRAM program name [[{filename [ , f i lename. . . ]] ) ]] 

where: 

[OVERLAID! specifies that the program can share global 
variables with separately compiled modules. See 
Section 6.8. 

program name specifies the name of the program; only the first 
six characters are significant. 

filename specifies the identifier associated with an 
external file that the program uses. 

The program name appears only in the heading and has no other purpose 
within the program. The program name cannot be redefined at program 
level . 

The file names listed in the program heading correspond to the 
external files that the program uses. The heading must include the 
names of all the external file variables. The predeclared text file 
variables INPUT and OUTPUT, by default, refer to your terminal (in 
interactive mode) or the batch input and log files (in batch mode). 
You must declare file variables for all other external files in the 
main program declaration section, and specify those variables in the 
program heading. Refer to Chapter 7 for more information on files. 

Example 1 

F'ROGRAM Testlr 

The program heading names the program Testl, but omits the file 
variable list. This program does not use the terminal or any external 
file. 

Example 2 

PR0r7RAM Swuares (INPUTr OUTPUT)? 

The program heading names the program Squares and specifies the 
predeclared file variables INPUT and OUTPUT. 

Example 3 

PROGRAM Payroll (EiiiPloyee> Salary^ Output)? 

The program heading names the program Payroll and specifies the 
external file variables Employee, Salary, and Output. 
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4.2 LABEL DECLARATIONS 

A label makes a statement accessible from a GOTO statement. The label 
section must list all the labels in the corresponding executable 
section. 

Fo rma t 

LABEL label Unlabel ...J 

where : 

label specifies an unsigned integer. When you declare more 
than one label, you can specify the labels in any 
o rder . 

The label is an unsigned integer. Labels can be listed in any order 
if more than one label is defined. A label can precede any statement 
in the program, but can be accessed only by a GOTO statement. Within 
the program, a colon (:) must be placed between the label and the 
statement . 

The scope of a label is the block in which it is declared. Therefore, 
you can transfer control from one program unit to another program unit 
in which the former is nested, for example: 

PROGFv' AM T r i a I ( I NPUT t OUTPUT ) y 
LABEL 7U? 



PROCEDURE Max? 
LABEL 50? 



BEGIN 

50 ♦ WRITELN < 'Testing fairness of tosses')? 



GOTO 75? 
END? <*erid of procedure Max*) 



BEGIN 



75 : WRITELN <'Not fair! A we.i.^hted coin!')? 



END* 

The GOTO statement in the procedure Max transfers control to the main 
program statement that has the label 75. However, you cannot use a 
GOTO statement in the main program to transfer control into the 
procedure at label 50. 

Example 

LABEL Of 6656 f 778 r 4352? 

The label section specifies four labels: 0, 6656, 778, and 4352. 
Note that the labels need not be specified in numeric order. 
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4.3 CONSTANT DEFINITIONS 

The constant section defines identifiers to represent constant values 
Forma t 

CONST constant name = value; [[constant name = value; ... ]] 



where: 



constant name specifies the identifier to be used as the 

name of the constant. 

value 




The use of constant identifiers generally makes a program easier to 
read, understand, and modify. If you need to change the value of a 
constant, you can simply modify the CONST declaration instead of 
changing each occurrence of the value in the program. This capability 
makes programs simpler to maintain and easier to transport. 

Example 

CONST Rain ^=- TRUt:? 
Year =^ 200:1? 
F'i ^^= 3 ♦I. 4. 1.5927? 
Comma •-• ' y ' ? 

C o u ri t r y "•- ' U ii i t e d S I ates' ? 
Ci tizenshii-' -=•■ Countr^y 

This CONST section defines six constants. The identifier Rain is 
equal to the Boolean value TRUE. The identifier Year represents an 
integer, and Pi represents the real number 3.1415927. The identifier 
Comma represents a character, and the identifier Country represents a 
string. Characters and strings must be enclosed in apostrophes in the 
CONST section. The identifier Citizenship represents the symbolic 
constant Country and thus represents a character string. Note that, 
since Citizenship represents a symbolic value and not a string, 
apostrophes are not used. 
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4.4 TYPE DEFINITIONS 

The type definition introduces the name and the set of values for a 
type. Chapter 2 describes data types and includes examples of type 
def ini tions . 

Format 



TYPE type identifier 
[ type identifier 



type definition; 
type definition; 



where: 

type identifier specifies the identifier to be used as the 

name of the type. 

type definition defines a type. The types are shown in 

Figure 4-1. 

Note that you can use the identifier for a previously defined type in 
place of the type definition for a new type. In addition, you can 
define packed types for arrays, records, sets, and files, as described 
in Section 2.5. 



scalar 



predefined 
scalar 



INTEGER 



REAL 



BOOLEAN 



CHAR 



DOUBLE 



user-defined 
scalar 



enumerated 



subrange 



pointer 



RECORD 



SET 



FILE 



MR S-31 47-83 



Figure 4-1: PASCAL Data Types 
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4.5 VARIABLE DECLARATIONS 

The variable declaration 
identifier and a 



Chap ^ ^^„„.^_^„ „^ 

variables of each type 



aration creates a variable and associates an 
type with the variable. Optionally, the variable 

used to assign an initial value to a variable, 
data types and shows how to declare and initialize 



declaration can be used to assign an in 
Chapter 2 describes data types and shows 
variahlpc; of f^Ptrh tvnp. 



Fo rma t 



VAR variable name [[, variable name., 
[[variable name [[, variable name... 



type [[ := value 
type [[ '~ value ' 



where 



variable name specifies the identifier to be used as the name of 
the va r iabl e. 



type 
value 



names or defines a type. The type can be one of 
the types shown in Figure 4-1. 

specifies the initial value associated with the 
identifier. The value must be of the same data 
type as the identifier. 



You can also declare packed array, record, set, and file variables, as 
described in Section 2.5. Note, however, that you cannot initialize 
file variables. 
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4.6 VALUE DECLARATIONS 

The value section initializes variables that are declared in the main 
program declaration section. You can initialize scalar, array, 
record, and set variables with constants of the same type as the 
variable' s type . 

The description below presents general information on value 
initializations. The exact format of the value initialization depends 
on the type of variable being initialized. For detailed formats and 
examples, refer to the section in Chapter 2 that describes the type of 
variable you need to initialize. 



Fo rma t 



VALUE variable name := value; 

[[variable name := value; ... ]] 

where : 

variable name names the variable to be initialized. You cannot 
specify a list of variable names. 

value specifies a constant of the same type as the 

variable, or specifies a constructor for an array 
or record variable. 

You must specify a value of the correct type for each variable being 
initialized. You must not specify an expression. Scalar variables 
require scalar constants, and set variables require set constants. 
For arrays and record variables, you specify the value to be assigned 
to each element or field in a parenthesized list called a constructor. 
An array or record constructor must contain one constant value of the 
appropriate type for each component of the structure. 

The value initialization can appear only in the main program 
declaration section. You cannot use a value section in procedures, 
functions, or modules. 
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CHAPTER 5 
PASCAL STATEMENTS 



PASCAL provides several statements to perform the actions within the 
program. Any of these statements can appear anywhere in the 
executable part of a PASCAL program, procedure, or function. PASCAL 
also includes the compound statement, which allows you to group 
statements . 

This chapter presents reference information on each of the statements, 
organized as follows: 

• The compound statement 

• The assignment statement 

• Conditional statements: 

IF-THEN 

IF-THEN-ELSE 

CASE 

• Repetiti^/e statements: 

FOR 

REPEAT 

WHILE 

• The WITH statement 

• The GOTO statement 

• The procedure call 

PASCAL includes simple and compound statements. A simple statement 
can be executed and is complete in itself; that is, it is not made up 
of other statements. The simple statements are the assignment 
statement, the GOTO statement, and the procedure call. 

A compound statement is an arrangement of simple statements that 
executes sequentially. You can use a compound statement anywhere in 
the program that a simple statement is allowed. This manual uses the 
term statement to mean either a simple or a compound statement. 
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Simple and compound statements can also be used in structured 
statements. A structured statement is a group of statements that can 
be executed either in sequence, conditionally, or repeatedly. The 
structured statements are the conditional, repetitive, and WITH 
statements. A compound statement can also be considered a type of 
structured statement. 



5.1 THE COMPOUND STATEMENT 

The compound statement allows you to group PASCAL statements for 
sequential execution as a sing]e statement. 

Fo rma t 

BEGIN 

statementl ; s ta tement2 , . . . statement n; 
END; 

where: 

statement denotes a simple or compound statement. 

You can create a compound statement using any combination of PASCAL 
statements, including other compound statements. You must use 
semicolons to separate the statements that make up the compound 
statement; however, no semicolon is required between the last 
statement and the END delimiter. PASCAL treats the entire compound 
statement as a simple statement everywhere in the program. Examples 
of compound statements appear throughout this chapter. 



5.2 THE ASSIGNMENT STATEMENT 

The assignment statement assigns a value to a variable. 

Forma t 

variable name := expression; 

where: 

variable name specifies the name of a variable of any type 
(except a file) . It could be an array element, a 
file buffer variable, a function, or a field of a 
record . 

expression specifies a value, variable name, function 
reference. Boolean expression, set expression, or 
arithmetic expression. 

Note that the assignment operator is := in PASCAL. Do not confuse 
this operator with the equal sign (=) operator. 

The expression on the right of the operator establishes the value to 
be assigned to the variable on the left of the operator. 
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You can use the assignment statement to assign a value to a function 
identifier or to a variable of any type except a file. The variable 
and the expression must be of compatible types, with the following two 
exceptions : 

• You can assign an integer expression to a real variable. 

• You can assign an integer or single-precision real expression 
to a double- precision variable. 

For structured types, PASCAL enforces structural compatibility in 
assignments . 

Example 1 

X ? ■■■■^■- 1 ? 

The variable X is assigned the value 1. 
Example 2 

T e in p t - C e 1 s i u s ( F" a h r (••' i"i h e i t ) 5 
The value returned by the function Celsius is assigned to Temp. 
Example 3 

T t ■■■■■■■■ A < b; 

The value of the Boolean expression A < B is assigned to T. 

Example 4 

Vowel ...Set I ■■■■■■■■ L: ' A ' » ' E/ f '1' ? ' ' y ' U ' :.l ? 

The set Vowel_Set is assigned the string constants shown. The base 
type of Vowel_Set must include the characters 'A', 'E', 'T', '0', and 
'U' . 

Example 5 

My„..ArrawC 1 1 :: ~ M«....ArrayC7II + Your...ArrBi-i\".XA'.'.\r 

The first element of My_Array is assigned the sum of the seventh 
element of My_Array and the fourteenth element of Your_Array. 

Example 6 

My. ... A rra^:< t~- You r„ Array? 

The value of each element of the array Your_Array is assigned to the 
corresponding element of the array My_Array. 

Example 7 

Award rec ♦- New„W inner? 

Assume that Awardrec and New_Winner are record variables of 
assignment-compatible types. This example assigns the value of each 
field of New Winner to the corresponding field of Awardrec. 
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Example B 

A.^es t"~ Asies-C10~l-7J r 

Assume that the base type of the set variable Ages is; the integer 
subrange 0..255. This example assigns the value of the set expression 
Ages-riO+7] to the variable Ages. 



5,3 CONDITIONAL STATEMENTS 

A conditional statement selects a statement for execution depending on 
the value of an expression. PASCAL provides three conditional 
statements : 

• IF-THEN statement 

• IF-THEN-ELSE statement 

• CASE statement 

These are described in the following sections. 



5.3.1 The IF-THEN Statement 

The IF-THEN statement causes the conditional execution of a statement. 
Format 

IF expression THEN statement; 
where: 

expression specifies a Boolean expression. 

statement indicates a simple or compound statement. 

The statement is executed only if the value of the expression is TRUE. 
If the value of the expression is FALSE, program control passes to the 
statement following the IF-THEN statement. 

The THEN clause can specify a compound statement. However, note that, 
if you use the compound statement, you must not place a semicolon 
between the words THEN and BEGIN. The example below shows a semicolon 
immediately following the word THEN: 

IF Day = Thurs THEN? <* misplaced semicolon *) 
BEGIN 

statement 



END? 

As a result of the misplaced semicolon, the empty statement becomes 
the object of the THEN clause. In this example, the compound 
statement following the IF-THEN statement is executed regardless of 
the value of Day. 
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Example 1 

IF- ( ( X * 3 7 / C c) I". s 1 3 n t ) -f • 1=' a c t o r^ ) > 1 ♦ T l-l E N 
A I'l s w e T' J •- A II s w e r F" a c: t o v y 

If the value of the arithmetic expression is greater than .1000.0, a 
new value is assigned to the variable Answer. 

Example 2 

IF- (A > B> AND ( B > C) THEN 
D :===: A - Cy 

Tf both relational expressions are true, D is assigned the value of A 
- C. 

Example 3 

I F- ( N 3 in e r^- ' S M 1 7 H ' ) AND ( I N I T I A I... ••:•-• ' J ' ) T HI E N 
BEGIN 

Count I"" Count -I- .1? 
S m i t h 3 d d C (!) o u n 1 1 i ■■"■ A d d r e i;i <"> 5 

WFaiELN ('J SMirH N0» 'yCountr ' LIUE8 AT 'y Add re sis) 
END? 

This example counts the number of J SMITHS, prints each one's street 
address, and stores it in an array. 

Example 4 

IF Day ==•= Thurs TF-IEN 

FOR I t ■■■■■■' 1 TO MaxEiTiP DO 

F' a y L" .1 J t ■■■■■- S a I a i^ y Z I .] * ( :L - T' a x .„. F^: a t o -- F I C A ) y 

If the current value of the variable Day is Thurs, the FOR loop is 
executed, and values for Payfl] are computed. If the value of Day is 
not Thurs, the FOR loop is not executed; and program control passes 
to the statement following the end of the loop. 



5.3.2 The IF-THKN-ELSE Statement 

The IF-THEN-ELSE statement is an extension of the IF-THEN statement 
that includes an alternative statement, the ELSE clause. The ELSE 
clause is executed if the test condition is false. 

Format 

IF expression THEN statementl ELSE statement2 
where : 

expression specifies a Boolean expression. 

statementl denotes the statement to be executed if the 
expression is true. 

statement2 denotes the statement to be executed if the 
expression is false. 
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The objects of the THEN and ELSE clauses can be any simple or compound 
statement, including another IF-THEN or IF-THEN-ELSE statement. The 
ELSE clause always modifies the closest TF-THEN statement. 

IF A=^=-i the:n 

IF BOI THEN f:;-i 
ELSE D;^=:L5 

By definition, PASCAL interprets this statement as if it included 
BEGIN and END delimiters, as fol]ows: 

IF A -J. THEN 
BEGIN 

IF BOl THEN Cr^l 
ELSE D:-^a 
END? 

The variable D is assigned the value 1 if both A and B are equal to 1. 

Example 1 

IF Disossse THEN 

WRITELN ('This person is sick*') 
ELSE WRITELN ('This person is healthy,')? 

This example prints a different line of text depending on the value of 
the Boolean variable Disease. Note that Disease is a Boolean 
expression, so you need not specify Disease = TRUE. 

Example 2 

IF Balance < 0,0 THEN 
BEGIN 

WRITELN ('Overdrawn by ' r ABS(Balance) ) ? 
WRITELN ('Loan of 'fLoany' at ' r Rater 

' 7. automatically deposited')? 
Balance \~ Balance + Loan? 
BILL_AMT := Loan * (1+Rate) 
END 
ELSE WRITELN ('No Loan issued this month ')? 
WRITELN ('Balance is '^Balance)? 

If the value of Balance is negative, the compound statement is 
executed. The compound statement prints two lines of notification, 
adds Loan to Balance, and computes the amount of the bill for the 
loan. A zero or positive Balance results in a message stating that no 
loan was issued. The WRITELN procedure that prints the final Balance 
is independent of the conditional statement and is always executed. 



5.3.3 The CASE Statement 

The CASE statement causes one of several statements to be executed, 
depending on the value of a scalar expression. 



Format 



CASE case selector OF 

case-label list : statement 

([; case-label list : statement... 

[[OTHERWISE statement;...]] 
END; 
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where : 

case selector specifies an expression that evaluates to any 

scalar type except a real type. 

case-label list specifies one or more constants of the same 

type as the case selector, separated by 
comma s . 

Each case-label list is associated with a statement that may be 
executed. The list contains the value of the case-selector expression 
for which the system executes the associated statement. You can 
specify the case labels in any order. However, the difference between 
the largest and smallest labels must not exceed 1000. Each case label 
can appear only once within a CASE statement, but can appear in other 
CASE statements. 

At run time, the system evaluates the case-selector expression and 
chooses which statement to execute. If the value of the case-selector 
expression does not appear in any case-label list, the system executes 
the statement in the OTHERWISE clause. 

If the value of the case-selector expression does not match one of the 
case labels and you omit the OTHERWISE clause, the status of the CHECK 
run-time option determines the action that the system takes. Refer to 
Section 8.4.3 for run-time options. If CHECK is enabled, the system 
prints an error message and terminates execution. If CHECK is not 
enabled, execution continues with the statement following the CASE 
statement . 

Example 1 

CASE AsJe OF" 

5»6 t IF B:Lrth....Month > Sep THEN Grade t--~- 1 ELSE Grade i---^- Or 

7 t i:<eg:i:n 

Grade l~ 2? 
fi;e3din!S....Skill J =•= TF;:UE 
END? 
B t Grade i~ 3 
END? 

At run time, the system evaluates Age and executes one of the 
statements. If Age is not equal to 5, 6, 7, or 8, and the CHECK 
option is enabled, an error occurs and execution is terminated. 



Sep THEN Grade :~ 1 ELSE Grade 



xample 2 






CASE A^e 


OF 


r 


5r6 


♦ 
* 


IF Birth. ..Month 


7 


* 


iBEGIN 

Grade J= 2J 
Read iri^„.5k ill 
END? 


8 


* 
♦ 


Grade ::= 3 



TRUE 



OTHERWISE Grade :== 
END? 

An OTHERWISE clause is added in this example. If the value of Age is 
not 5, 6, 7, or 8, the value is assigned to the variable Grade. 
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Example 3 

CASE Alphabetic OF" 

'A' c 'E' > 'I ' y 'Q' J 'U' : Alph3..-Fl3<.3 l----^ Vowel? 

'Y' J Alpha....Fla?-.^ l~ Soinet imes 

7' H E R W I S t;: A 1 p h a ... F 1 a ?i : ■--■■■ C o r, s o n a n t 
END? 

This example assigns a value to Alpha_Flag depending on the value of 
the character variable Alphabetic. 



5.4 REPETITIVE STATEMENTS 

Repetitive statements specify loops, that is, the repetitive execution 
of one or more statements. PASCAL provides three repetitive 
statements : 

• FOR statement 

• REPEAT statement 

• WHILE statement 

These are described in the following sections. 



5.4.1 The FOR Statement 

The FOR statement specifies the repetitive execution of a statement 
based on the value of an automatically incremented or decremented 
control variable. 

Format 

FOR control variable := initial value (TO ) final value DO statement; 

IDOWNTO! 

where : 

control variable specifies the name of a simple variable of 

any scalar type except a real type. 

initial value specifies an expression of the same type as 

the control variable. 

final value specifies an expression of the same type as 

the control variable. 

The control variable, the initial value, and the final value must all 
be of the same scalar type, but cannot belong to one of the real 
types. The repeated statement cannot change the value of the control 
variable. The control variable must be a simple variable; that is, 
it cannot be an element of an array, a field of a record, the object 
of a pointer reference, or a file buffer variable. 

At run time, completion tests are performed before the statement is 
executed. In the TO form, if the value of the control variable is 
less than or equal to the final value, the loop is executed, and the 
control variable is incremented. When the value of the control 
variable is greater than the final value, execution of the loop is 
complete . 
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In the DOWNTO form, if the value of the control variable is greater 

than or equal to the final value, the loop is executed, and the 

control variable is decremented. When the value of the control 

variable is less than the final value, execution of the loop is 
compl ete . 

Because completion tests are performed before the statement is 
executed, some loops are never executed, for example: 

FOR Control t'-^^ N TO N i Q DO 

Weeki:;N.1 l--^- Week C Nil f NewpsyJ 

If the value of N + Q is less than the value of N (that is, if Q is 
negative) , the loop is never executed. 

When incrementing and decrementing the control variable, PASCAL uses 
units of the appropriate type. For numeric values, it adds or 
subtracts one upon each iteration. For values of other types, the 
control variable takes on each successive value of the type. For 
example, a control variable of type 'A'..'Z' is incremented (or 
decremented) by one character each time the loop is executed. 

If the FOR loop terminates normally, that is, if the loop exits upon 
completion and not because of a GOTO statement, the value of the 
control variable is left undefined. You cannot assume that it retains 
a value. Therefore, you must assign a new value to the control 
variable if you use it elsewhere in the program. However, if the FOR 
loop terminates because of a GOTO statement, it retains the value it 
had at termination; and you can use that value elsewhere. 

Example 1 

FOR N :=••■ Lowbound TO Hij;<h bound DO 
Sum t~- Sum + IntArrsyCNJ? 

This FOR loop computes the sum of the elements of Int_Array with index 
values from Lowbound through Highbound. 

Example 2 

FOR Year t~~^ 1899 DOWNTO 1801 DO 
IF (Year MOD 4 ) ^ THFN 

WR]:TFLN(Year:4y ' IS A LEAP YEAR')? 

The DOWNTO form is used here to print a list of all the leap years in 
the nineteenth century. 

Example 3 

FOR I :^ 1 TO 10 DO 

FOR J t^ 1 TO 10 DO 
ALIrJ3 := 0? 

This example shows how you can directly nest FOR loops. For each 
value of I, the system steps through all 10 values of J and assigns 
the value to the appropriate array element. 
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Example 4 

FOF^' Eir.plowee i--- 1. TO N DO 
BEGIN 

HRS i ■■■■■■■ 40? 

F-OF^' Day J •^=-- Mon TO F>i DO 

IF' Si c H. C E m p I o y e e y D a y :.l J F I E N 
FiRS :■•:= FIRS-8r 
PayLEtTiFloyeeJ : ■■•" Wa^-^er Employee. "I * F^RS 
END? 

You can combine compound statements as in this example. The inner FOR 
statement computes the number of hours each employee worked from 
Monday through Friday. The outer FOR statement resets hours to 40 for 
each employee and computes each person's pay as the product of wage 
and hours worked. 



5.4.2 The REPEAT Statement 

The REPEAT statement groups one or more statements for execution until 
a specified condition is true. 

Format 

REPEAT statement [[ ; statement ...J UNTIL expression; 
where: 

expression specifies a Boolean expression. 

Note that the format of the REPEAT statement eliminates the need for a 
compound statement. 

The expression is evaluated after the statements are executed. 
Therefore, the REPEAT group is always executed at least once. 

Exampl e 

REPEAT 

READ ( X ) ? 

IF <X IN CO' ♦ . '9'3) THEN 
BEGIN 

Di^it.Count X~ Di:3it_Count + 1? 
Di^it_Sum := Di^it.Sum + ORD(X) - ORD('O') 
END 
ELSE Ch3r_Coijrit :~ Chsr.Count + l 
UNTIL EOLN( INPUT)? 

Assume that the variable X is of type Char, and the variables 
Digit_Count, Digit_Sum, and Char_Count are integers. The example 
reads a character (X) from the terminal. If X is a digit, the count 
of digits is incremented by one; and the sum of digits is increased 
by the value of X. The ORD function is used to compute the value of 
X. If X is not a digit, the variable Char_Count is incremented by 
one. The example continues processing characters from the terminal 
until it reaches an end-of-line (EOLN) condition. 
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5.4.3 The WHILE Statement 

The WHILE statement causes one or more statements to be executed while 
a specified condition is true. 

Fo rma t 

WHILE expression DO statement; 
where : 

expression specifies a Boolean expression. 

The WHILE statement causes the statement following the word DO to be 
executed while the expression is true. Unlike the REPEAT statement, 
the WHILE statement controls the execution of only one statement. 
Hence, to execute a group of statements repetitively, you must use a 
compound statement. Otherwise, PASCAL repeats only the single 
statement immediately following the word DO. 

The expression is evaluated before the statement is executed. If the 
expression is initially false, the statement is never executed. The 
repeated statement must change the value of the expression. If the 
value of the expression never changes, the result is an infinite loop. 

Example 1 

WHILE NOT EOF < Filet) DO 
READLN( Filet)? 

This statement reads through to the end of the text file Filel. 

Example 2 

WHILE NOT EOLN( INPUT) DO 
DEGIN 

READ(X) r 

IF NOT <X IN C'A' ♦ ♦ 'Z' r '3' ♦ * 'z' ? '0' ♦ ♦ '?'!) THEN 
Err J~ Errfl 
ENDr 

This example reads an input character from the current line on the 
terminal. If the character is not a digit or letter, the error count 
(Err) is incremented by one. 

Example 3 

Sum X~ 0? 
Ntests ♦" If 
Avd X~ too? 

WHILE <Av^ >= 90) AND (Ntests O Msxtests) DO 
BEGIN 

Sum ♦= Sum + Test LNtestsil? 
Av^ :== Sum IM\> Ntests? 
Ntests := NTests ft 
END? 
IF AVG < 90 THEN 
WRITELN ('Your sversj^e dropped below 90 as of Test 't NtestsJ5)? 

After initializing Sum to zero, this program fragment repeatedly 
calculates a student's average test score. When the average score 
falls below 90 (or NTESTS > MAXTESTS) , the calculations cease. If the 
average score is less than 90, the system prints an informative 
message . 
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5.5 THE WITH STATEMENT 

The WITH statement provides abbreviated notation for references to 
fields of a record. 

Format 

WITH record variable [[, record variable...]] DO statement; 

where : 

record variable specifies the name of the record variable to 

which the statement refers. 

The WITH statement allows you to refer to the fields of a record 

directly instead of using the record . fieldname format. In effect, the 

WITH statement opens the scope of the field identifiers so that you 
can use them as you would use variable identifiers. 

Specifying more than one record variable has the same effect as 
nesting WITH statements. The names must appear in the order of their 
declaration. Thus, the following two statements are equivalent: 

WITH C3tf Do^ DO 

Bills := Bills + Catvei + Do^vet? 

and 

WITH Cat DO 

WITH ho^ DO 

Bills := Bills + Cstvet + Dodvet? 

Note that if the record Dog is nested within the record Cat, you must 
specify Cat before Dog. 

Example 1 

VAR Tsxes : RECORD 

Gross ♦ REAL? 
Net : REAL? 
Bracket J REAL? 
Itemized : BOOLEAN? 
Paid : REAL 
END? 



WITH Taxes DO 

IF Net < 10000,0 THEN Itemised ?= TRUE? 

This statement tests the value of the field Taxes. Net, and sets 
Taxes. Itemized to TRUE if Taxes. Net is less than 10000.0. 
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Example 2 



TYPE Name ^== F-'ACKED ARRAY i:;i»«20:] OF" CHAR? 
Date ■■■■■■■■ Fi:ECORD 

Month J (Jany Feb)- Mary Apry Mayy Juny 
July f^u^f Sep f Octy Nov? Dec)y 
Da^:i : 1.«»3:Ly 
Year t INTEGER 
E.-NDy 

UAR Hosp : RECORD 

F'atient J Nainey 
D i r 1 1 ) d ate J D a t e ? 
AsSe : INTEGER 

ENDy 



WITH Ho spy Birthdate DO 
BEGIN 

Patient }= 'THOMAS JEFFERSON 'J 
Month := Apr? 
A-Je l-^--- 236 
END? 

The program segment in this example shows how you can use the WITH 

statement to assign values to the fields of a record. The WITH 
statement specifies the names of the record variables Hosp and 

Birthdate. The record names must be in order; that is, Hosp must 

precede Birthdate. The assignment statements need only specify the 

field names, for example: Patient instead of Hosp.Pa tient , Month 
instead of Hosp. Bi rthdate .Month , and so forth. 



5.6 THE GOTO STATEMENT 

The GOTO statement directs the program to exit from a loop or other 
program segment before its normal termination point. 

Fo rma t 

GOTO label; 
where: 

label specifies a statement label. 

Upon execution of the GOTO statement, program control shifts to the 
statement with the specified label. The statement can be any PASCAL 
statement or an empty statement. The label must be defined in the 
declaration section. 

The GOTO statement must be within the scope of the label declaration. 
In addition, you cannot use a GOTO statement that is outside a 
compound statement to jump to a label that is within that compound 
statement. 
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Example 



FOR I J- 1 TO .1.0 DO 
BEGIN 
IF Re a] AiM-ayCIJ ■■■■■= 0,0 THEN 

BEGIN 

Result t-^ 0»0; 

GOTO 10 

END? 
Result J" Result + 1 ♦ 0/Real....Array l" I IT 

end; 

10 J Invert sum J" Result; 



This example shows how you can use the GOTO statement to exit from a 
loop. The loop computes the sum (Invertsum) of the inverses of the 
elements of Real_Array. If one of the elements is zero however, the 
sum is set to zero; and the GOTO statement forces an exit from the 
loop. 



5.7 THE PROCEDURE CALL 

A procedure call specifies the actual parameters to a procedure and 
executes the procedure. (See Chapter 6 for a complete description of 
procedures . ) 

Format 

procedure name [[(actual parameter [[, actual parameter...] ) ]] ; 
where: 

procedure name specifies the name of a procedure. 

actual parameter specifies a constant, an expression, the name 

of a procedure or function, or a variable of 
any type. 

The procedure call associates the actual parameters in the list with 
the formal parameters in the procedure declaration. It then transfers 
control to the procedure. 

The formal parameter list in the procedure declaration determines the 
possible contents of the actual parameter list. The actual parameters 
must be compatible with the formal parameters. Depending on the types 
of the formal parameters, the actual parameters can be constants, 
variables, expressions, procedure names, or function names. An 
unindexed array name in a parameter list refers to the entire array. 
PASCAL passes actual parameters by the mechanism specified in the 
procedure declaration. 
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Example 1 

I o :i. 1 b o o t h ( C h B I'l <^i e y ► 2 5 r L a ri e L' :l J ) ? 

This statement calls the procedure Tollbooth, specifying the variable 
Change, the real constant 0.25, and the first element of the array 
Lane . 

Examp] e 2 

T a X e i:> ( R a t e * I n c o ni e c ' F' aw' ) ? 

This statement calls the procedure Taxes, with the expression 
Rate*Income and the string constant 'Pay' as actual parameters. 

Example 3 

Halt? 

This statement calls the predeclared procedure Halt, which has no 
parameters . 
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CHAPTER r, 
PROCEDURES AND FUNCTIONS 



Procedures and functions are program units that perform tasks for 
other program units. A procedure associates a set of statements with 
an identifier; the statements are executed as a group. A function 
returns a value. Each function is associated with a type and an 
identi f ier . 

Procedures and functions have similar structures and restrictions. 
This chapter uses the term subprogram in descriptions that apply to 
both procedures and functions. 

PASCAL allows you to use three kinds of subprograms: 

• Predec]ared subprograms, described in Section 6.1. 

• User-declared subprograms written in PASCAL. Sections 6.2 
and 6.3 present the general format of subprograms and 
describe how parameters are passed to subprograms. Sections 
6.4 through 6.6 describe how to declare PASCAL procedures and 
functions . 

• External subprograms. This category includes subprograms 
written in other languages. Sections 6.7 and 6.B describe 
external subprograms. 

You can include subprograms in the main program compilation unit, or 
you can compile them separately from the main program in modules. 
Separately compiled subprograms are considered external to the main 
PASCAL program, and special usage rules apply (see Section 6.8). 



6.1 PREDECLARED SUBPROGRAMS 

PASCAL provides predeclared procedures and functions that perform 
various commonly used tasks, such as input and output operations and 
mathematical functions. These predeclared subprograms are described 
in the following sections. 



6.1.1 Predeclared Procedures 

PASCAL provides procedures that perform input and output, allocate and 
destroy dynamic variables, supply the system date and time, pack and 
unpack array variables, and halt program execution. Table 6-1 
summarizes these procedures. 
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Table 6-1: Predeclared Procedures 



Procedure 



Parameter Type 



Action 



CLOSE (f) 
DATE (string) 

DISPOSE(p) 



DTSPOSE(p, 
tl, . . .,tn) 



FIND(f ,n) 



GET(f) 



HALT 



LINELIMIT(f ,n) 



MARK (a) 



NEW(p) 



f " file variable 

string = variable of 
type PACKED ARRAY 
ri . .111 OF CHARl 

p = pointer variable 



p - pointer variable 
tl , . . . , tn = tag 
field constants 



f = file variable n 
positive integer 
expression 

f = file variable 



None 



f = text file 
variable n = integer 
expression 



a = a variable of 
type "INTEGER 



p = pointer variable 



Closes file f . 

Assigns current date 
to string. 



Deal locates 
for p" . The 
variable p 
undefined . 



storage 
po inter 
becomes 



Releases storage 
occupied by p"; used 
when p" is a record 
with variants. Tag 
field values are 
optional; if 

specified, they must 
be identical to 
those specified when 
storage was 

allocated by NEW. 

Moves the current 
file position to 
component n of file 
f . 

Moves the current 
file position to the 
next component of f. 
Then GET(f) assigns 
the value of that 
component to f^, the 
file buffer 

variable. 

Terminates execution 
of the program. 

Terminates execution 
of the program when 
output to file f 
exceeds n lines. The 
value for n is reset 
to its default after 
each call to REWRITE 
for file f. 

Places a marker for 
use when allocating 
memory for dynamic 
var iabl es. 

Allocates storage 
for p" and assigns 
its address to p. 
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Table (S-1: Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



Action 



NEW(p, tl,...,tn) 



p = pointer variable 
tl. , . . . , tn = tag 
field constants 



Al loca 

for p" 

is a 

var ian 

option 

tl 

specif 

for th 

of 

var ian 

field 

1 isted 

in whi 

declar 

cannot 

during 

NEW 

ini tia 

fields 



tes 
; us 

rec 
ts. 
al 

thr 

y t 

e t 
the 
t. 
valu 

in 
ch 
ed. 
b 

do 
1 ize 



storage 

ed when p" 

ord with 

The 

parameters 

ough tn 

he values 

ag fields 

current 

All tag 

es must be 

the order 

they were 

They 

e changed 

execution. 

es not 

the tag 



OPEN{f, attributes) 



PACK(a,i ,z) 



PAGE(f) 



f = file variable 
attributes (see 
Table "7-2) 

a = variable of type 
ARRAY [m. .n] OF T 
i = starting index 
of array a 

z = variable of type 
PACKED ARRAY [u..vl 
OF T 



f = text 
variable 



file 



Opens the file f 
with the specified 
attributes. 

Moves (v-u+1) 
elements from array 
a to array z by 
assigning elements 
aFl] through 

a[l+v-u1 to z[ul 
through zf vl . The 
upper bound of a 
must be greater than 
or equal to (1+v-u) . 

Skips to the next 
page of file f. The 
next line written to 
f begins on the 
second line of a new 
page. The default 
for f is OUTPUT. 



PUT(f) 



f = file variable 



Writes the value of 
f", the file buffer 
variable, into the 
file f and moves the 
current file 
position to the next 
component of f. 
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Table 6-1; Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



Action 



READ(f , vl , . . . ,vn) 



READLN (f , vl , . . . ,vn) 



RELEASE(a) 



RESET(f) 



REWRITE { f) 



UNPACK (z,a ,i) 



f = file var iab] e 
vl , . . . ,vn = 

variables 



f = text file 
variable vl , . . . ,vn = 
variables 



a = a variable of 
type '^INTEGER 



file va r iable 



f = file variable 



z = variable of type 
PACKED ARRAY ru..vT 
OF t 

a = variable of type 
ARRAY rm. .nl OF T 
i = starting index 
in array a 



For vl through vn, 
READ assigns the 
next value in the 
input file f to the 
variable. You must 
specify at least one 
variable ( vl ) . The 
def aul t for f is 
INPUT. 

Performs the READ 
procedure for vl 
through vn, then 
sets the current 
file position to the 
beginning of the 
next 1 ine. The 
variable list is 
optional . The 
default or f is 
INPUT. 

Deallocates memory 
allocated by the NEW 
procedure up to the 
point set by the 
MARK procedure. 



Enables 
file 
moves 
file po 
beg inni 
and 

f i rst c 
to the 
var iabl 
EOF(f) 
FALSE 
file is 



reading from 
f. RESET(f) 

the current 
sition to the 
ng of file f 
assigns the 
omponent of f 

file buffer 
e , f _ " • 

is set to 

unless the 

empty. 



Enables writing to 
file f. REWRITE(f) 
sets the file f to 
zero length and sets 
EOF(f) to TRUE. 

Moves (v-u+l) 
elements from array 
z to array a by 
assigning elements 
2[ul through z[v1 to 
a [ i] through 

aTi+v-u]. The upper 
bound of a must be 
greater than or 
equal to ( i+v-u) . 
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Table 6-1: Predeclared Procedures (Cont.) 



Procedure 



Parameter Type 



TIME(string) 



WRITE(f ,pl, . . . ,pn) 



WRITELN{f ,pl , . . . ,pn) 



string = variable of 
type PACKED ARRAY 
n . .111 OF CHAR 

f = file variable 
pi , . . . ,pn = wr i te 
parameters 



f = text file 
variable pi , . . . ,pn = 
write parameters 



Action 



Assigns the current 
t ime to s tr ing . 



Writes the values of 
pi through pn into 
the file f. At least 
one parameter (pi) 
must be specified. 
The default for f is 
OUTPUT. 

Performs the WRITE 
procedure, then 
skips to the 
beginning of the 
next line. The write 
parameters are 
optional . The 
default for f is 
OUTPUT. 



6.1.1.1 Input/Output Procedures - The PASCAL input and output 



proced 



res are: 

CLOSE - Section 7.4 
FIND - Section 7.5 
GET - Section 7.6 
LINELIMIT - Section 7.7 
OPEN - Section 7 .8 
PAGE - Section 7.9 
PUT - Section 7.10 
READ - Section 7.11 
READLN ~ Section 7.12 
RESET - Section 7.13 
REWRITE - Section 7.14 
WRITE - Section 7 .15 
WRITELN - Section 7.16 
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6.1.1.2 Dynamic Allocation Procedures - PASCAL provides the 
procedures NEW and DISPOSE for use with variables that are dynamically 
a 1 located . 

NEW 

The predeclared procedure NEW allocates memory for a dynamic variable. 
To refer to the dynamic variable, you must use a pointer variable. 

Fo rma t 

NEW(p) ; 
where : 

p specifies a pointer variable. 

The NEW procedure sets aside memory for p" , that is, the variable that 
p points to. The value of p" is undefined. You cannot assume that 
the allocated space is initialized. 

For example, you declare a pointer variable as follows: 

VAR FTR : "^ integer: 

This declares PTR as a pointer to an integer variable. The integer 
variable and its address, however, do not yet exist. You use the 
following procedure call to allocate memory for the dynamic variable: 

NEW (PTR) T 

This call allocates a variable of type integer. The variable is 
denoted by PTR", that is, the pointer variable's name followed by a 
circumflex (") . This call also assigns the address of the allocated 
integer to PTR. 

DISPOSE 

The predeclared procedure DISPOSE deallocates memory for a dynamic 
variable. As for NEW, you must use a pointer variable to refer to the 
dynamic variable. 

Format 

DISPOSE (p) ; 
where: 

p specifies a pointer variable. 

For example, to deallocate memory for the dynamic variable in the 
above example, you can issue the following procedure call: 

DISPOSE<PTR)» 

As a result of this procedure call, the memory allocated for PTR" is 
deallocated; and the variable is destroyed. The value of PTR is now 
undefined . 

Pointer types and dynamic allocation allow you to create linked data 
structures. An example of the use of pointer types and the NEW and 
DISPOSE procedures follows. 
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This program constructs a linked list of records. Each student record 

contains data on one student, that is, a name and a student ID number. 

Each record also contains a field that is a pointer to the next 
record. The program reads a number and a name and assigns each of 

them to a field of the student record. Then, it inserts the new 

record on the beginning of the linked list by assigning the "Start" 
pointer to that new record. 

F R G RAM I... i n k. e d L. :i s t (IN F' LJ T r U T P U 7 ) ? 

TYPE STUDENT. ..PTF;; ■■■-- '■^STUDENT....i:iATA ? 

s T R I N (:■) •• ■■ I"" A c: K E." i:i a r ray i:; ;i. ♦ « 2 o i f" c; h a r ? 

NUMBER ■■■-- l»*99999y 

STUDENT. ..DAT A -t:- RECORD 

Name t STRMNGr 
Stud... ID : NUMBER? 
Next : STUDENT.._PTR 
END? 

^.^AR Starts Student : STUDENT._PTR ? 
New.... ID : NUMBER? 
New„.Nairie ♦ STRING? 
Count : INTEGER? 

PROCEDURE WRITE._.DATA< Student t STUDENT.„.PTR ) ? 

(*This procedure prints the List of students* Because the 

p T^ i n t i ri <^ starts at t'ne b e <iJ i ri n .1 ri ^ o f t h e 1 :i. i"i k e d 1 .1 s t r t h e s t i..i d e 1 1 1 

names and ID numbers are pr.irited .in reverse of the order in 
which the^i were entered**) 

VAR lyJ : INTEGER? 

NeKt...Student t STUDENT._PTR? 
BEGIN 

WRITELN CNAMEJ'. 'STUDENT ID*:'J29)? 
REPEAT 

WRITELN(Student"*Name t 20^ Student'\Stud....ID J 7)? 
Next„Student t~ Student"* Next ? 
DISPOSE (Student)? 
Student ♦= Next_.Student 
UNTIL Student = NIL 
END? OKEnd of WRITE_„DATA* ) 

(* MAIN PROGRAM *) 
BEGIN 

Count ♦ =- 0? 

WRITELN ('Type a 5-disiit ID numberr' 

'and a name for each student*')? 
WRITELN< 'Press CTRL/Z when finished*')? 
Start := NIL? 
WHILE NOT EOF DO 
BEGIN 

READLN (New_IDr New„Name)? 

NEW (Student)? 

Studenf^Next := Start? 

Student"** Name *= New„Name? 

Student'"*Stud„ID i= NEW_ID? 

Start ♦= Student? 

Count ♦= Count + 1 
END? 
IF Count > THEN 

WRITE„DATA(START) 



END* 
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In the main program, the WHILE loop reads a number and a name for one 
student. The following procedure call allocates memory for a new 
student record : 

NE:W( Student) ? 

The new record is inserted at the beginning of the list, that is, 
Student" .Next points to the previous head of the list. The value of 
the new student record is assigned to the Start pointer. 

The WRITE_DATA procedure writes the name and student ID number for 
each student in the linked list. After writing data for one student, 
the procedure assigns the address of the next record in the list to 
Next_Student . The following call deallocates memory for one student 
record : 

IiISPOSE:( Student) J 

After deallocating memory, the procedure assigns the value of 
Next_Student to Student. When the current student record points to 
NIL, the loop stops executing. 

NEW AND DISPOSE — RECORD-WITH-VARIANTS FORM 



You can use the following forms of NEW and DISPOSE when manipulating 
dynamic variables of a record type with variants: 

NEW(p,tl , , . . ,tn) 

DISPOSE (p,tl , . . . ,tn) 

The parameter p must be a pointer variable pointing to a record with 

variants. The optional parameters tl through tn must be scalar 

constants. They represent nested tag field values where tl is the 
outermost variant. 

If you create p without specifying the tag field values, the system 

allocates enough memory to hold any of the variants in the record. 

Sometimes, however, a dynamic variable takes values of only a 

particular variant. If that variant requires less memory than NEW(p) 
allocates, you should use the NEW(p, tl , . . . , tn) form. 

For example, the following record represents a menu selection: 

TYPE Menu._Ptr •-•- '"Menu...Order ? 

Me3t„Type =• (Fishj Fowl y Beef)r 
Beef__Portion ^-■- (Oz.AOy 0z...l6y 0z_„32); 
Menij„Order = RECORD 

CASE Entree : Me<3t...Type OF 

Fish I (Fish..Type i (Sslmonf Codr Perch? Trout)? 

Lemon : BOOLEAN)? 
Fowl J (Fowl„TyF'e I (ChickenK Ducky Goose)? 

Sauce J (Orangey Cherryy Raisin))? 
Beef I (Beef.„Type } (Steaky Roasty Prinrie...rib ) ? 
CASE Size J Bee f_..Portion OF 

Oz_.10y 0z„i6 : (Beef„..ve<=l : (Artichokey Mixed))? 
0z_32 t (StoiTi3ch.^Cure I ( Bicarbonate y 

Antacid yNone_,Needed) ) ? 
END? 

MAR Menu_Selection ♦ Menu_.Ptr? 
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You can allocate memory for on] y the Fish variant as follows: 
N E. W ( M e i-i LI .._ S e I e c t i o ri r I-' i s h ) ? 

The example below shows how to call NEW and specify tag field values 
for nested variants: 

N Ei; W ( M e n u ... S e I & c t ;i. a ri y B e e f y z _. 3 2 ) ? 

The tag field values must be listed in the order in which they were 
declared . 

The DISPOSE (p, tl ,..., tn) procedure call releases memory occupied by p. 
The tag field values tl through tn must be identical to those 
specified when memory was allocated with NEW, for example: 

Ij :[ S P Q S E: ( M e i"i I.J .... G e 1 e c t i o n ? B e e f r Oz .... 32)? 

This call deallocates the memory allocated by the last NEW procedure 
call shown above. 



6.1.1.3 The MARK and RELEASE Procedures - The MARK and RELEASE 
procedures give you the opportunity to deallocate memory set aside by 
several NEW procedures without using several DISPOSE procedures. 

If you plan to allocate memory for use by several dynamic variables, 
you should consider placing a marker at some point. The MARK 
procedure places an index so that when you use the corresponding 
RELEASE procedure you deallocate the memory allocated after that 
marker. This saves you from having to DISPOSE several times, one for 
each NEW. 

The format for MARK is: 

Fo rma t 

MARK (a) 
whe re : 

a is a variable of type INTEGER representing a marker. 
The format for RELEASE is: 
Format 

RELEASE(a) 
wh e r e : 

a is the variable specified with MARK. 



6-9 



PROCEDURES AND FUNCTIONS 



Note the following example: 

MAF<K(A) 

N E W ( M e r I u .... S e .1 e c t i o n » I-" .i s h ) i 

N E W ( M e i"i I..I .... S e J. e c t i o n r B e e f y z .... 32) ? 



MARK(B) 

N E W ( M e ri t..i ... S e 1 e c' t i o i "i y F n w 1 .) ? 



RELEASE (A) 

In this example, all three NEW allocations are deallocated by 
RELEASE(A). If RELEASE(B) had been specified, only the third NEW 
allocation, NEW(Menu Selection, Fowl ) , would have been deallocated. 



6.1.1.4 Miscellaneous Predeclared Procedures - PASCAL provides four 
miscellaneous predeclared procedures: PACK, UNPACK, DATE, and TIME. 

The predeclared procedures PACK and UNPACK pack and unpack arrays. 
Packing means that the data items are stored as densely as possible. 

PACK 



You can declare arrays to be packed by specifying PACKED in the TYPE 
or VAR declaration. Sometimes, however, you might want to convert an 
array to a packed array within the executable section of the program. 
The predeclared procedure PACK copies elements of an unpacked array to 
a packed array. 

Fo rma t 

PACK(a ,i ,z) 
where: 

a is a variable of type ARRAY fm. .n] OF T. 

i is the starting index of a. 

z is a variable of type PACKED ARRAY[u..vl OF T. 

The number of elements in a must be greater than or equal to the 
number of elements in z. PACK(a,i,z) assigns the elements of a, 
starting with a[i], to the array z, until all of the elements in z are 
filled. When specifying i, keep in mind that the upper bound of a 
(that is, n) must be greater than or equal to i+v-u. 

For example, you can read integers from a file into an unpacked array, 
element by element, then pack the whole structure. 

VAR A : ARRAYCl,»20a OF 0.»15? 

P : PACKED ARRAYCl»r203 OF 0.,15? 

F"OR I := 1 TO 20 DO 

READ <ACI3)J 
PACK (Ptflrf)f 
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This program fragment assigns the elements A[11 through A[20] to PTil 
through P[201; that is, al] the elements in A are packed into P. 

You can pack part of the array A as in the following example. 

OkDeclarat.ions*) 

UAR A : ARRAYi::.!. » .2;v;:3 OF 1,.15? 

p : PACKED ARRAYi;;;i» »2o::i of I^^IS? 

(^Procedure cbII^) 
PACK<A!';L yP) y 

This procedure call moves elements of the array A into the packed 
array P. The parameter 1 specifies that the packing starts with array 
element ATI]. Thus, the elements A[ll through Ar20] are assigned to 
PTl] through Pr20]. Packing need not start with the first element; 
for example, PACK (A,5,P) packs elements AfB] through Ar241 into 
elements P[l] through Pr201. 

UNPACK 

You can convert a packed array to an unpacked array with the 
predeclared procedure UNPACK. 

Format 

UNPACK (z,a ,i) ; 
where : 

z is a variable of type PACKED ARRAY[u..v] OF T. 

a is a variable of type ARRAY[m..nl OF T. 

i is the starting index of a. 

For UNPACK, the restrictions on the array indices and the value of i 
are the same as for PACK. 

You cannot pass individual elements of a packed array to a subprogram 
as a VAR parameter. Therefore, you must unpack the array before you 
can pass its elements as VAR parameters. 

(* Declarations *) 

VAR p : packh:d arrayci* ♦103 of char? 

A J ARRAYClwlOD OF CHAR? 
PROCEDURE PROCESS-ELEHENTS (<^AR CH : CHAR) J 



END? 

(* Part of main program *) 

READ <P)? 

UNPACK<PrArl)f 

FOR I J= 1 TG 10 DO 

PROCESS„ELEMENTS (ACI3)J 
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This program fragment reads characters into the packed array P. The 
procedure call to UNPACK assigns Pfl] through Pfini to the unpacked 
array elements ATI] through AflO]. Then, for each call to 
PROCESS_ELEMENTS, one element of A is passed to the procedure. 

DATE AND TIME 



The predeclared procedures DATE and TIME assign the current date and 
time to a string variable. 



Fo rma t 



DATE (string) ; 
TIME (string) ; 

where : 

string specifies a variable of type PACKED ARRAYTl-.H] OF 
CHAR. 

The following example demonstrates the use of DATE and TIME: 

(* Declarations ^) 

T o d 3 y s .. D 3 1 e r C u r r e ri t .._ T i tr. e J F^' A C K E IJ A F^■ R A Y T 1 , * 1 :l ."I F C H A R ? 

< * F' r o c e d u i^ e c a 1 1 s * ) 

D A I E ( r o d 3 \:{ s _. D B t e ) i 
T I ME ( Cu r ren t _.T i ine ) y 

These two calls return results in the following format: 

19-J3ri~- 1.980 
14:20:25 

The time is returned in 24-hour format. Thus, the time shown above is 
14 hours, 20 minutes, 25 seconds. In the DATE procedure, if the day 
of the month is a 1-digit number, the leading zero does not appear in 
the result; that is, a space appears before the date string. 



6.1.2 Predeclared Functions 

PASCAL provides functions that compute arithmetic values, test certain 
Boolean conditions, transfer data from one type to another, and 
perform other miscellaneous calculations. Predeclared functions 
return a value as a result. Table 6-2 summarizes the predeclared 
functions . 

Arithmetic functions perform mathematical computations. Parameters to 
these functions can be integer, real, single-precision, ot 
double-precision expressions. The arithmetic functions, except for 
the absolute and square root functions, return a real value when the 
parameter is an integer, single-precision, or real value. When the 
parameter is a double-precision expression, the result is a 
double-precision value. The absolute and square root functions return 
a value of the same type as the parameter. 
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Boolean functions return Boolean values after testing a condition. 
The EOF and EOLN functions operate on files: EOF tests for the 
end-of-file condition on a variable of any file type, and EOLN tests 
for the end-of-line condition on a text file variable. The ODD 
function tests whether an integer parameter is odd or even. The 
UNDEFINED function, for which you must supply a real value, returns 
the value TRUE when the argument is not in normalized floating-point 
format. Variables containing a value that is not in a normalized 
floating-point format cause a reserved operand fault when used in 
arithmetic computations. 

Transfer functions take a parameter of one type and return the 

representation of that parameter in another type. For example, the 

ROUND function rounds a real number to an integer, and TRUNC truncates 
a real number to an integer. 

The miscellaneous functions include PRED and SUCC. The PRED and SUCC 
functions operate on parameters of any ordered scalar type (that is, 
all scalar types except one of the real types) . SUCC returns the 
successor value in the type; PRED returns the predecessor value. 



Table ^-2 



Predeclared Functions 



Category 



Function 



Parameter Result 
Type Type 



Purpose 



Ar i thmetic 



ABS (n) 



integer , same 
real , as n 
double 



Computes the 
absolute value of 
n. The type of n 
must be either 
integer , real , o r 
double; and the 
type of the result 
is the type of n. 



ARCTAN{n) 



integer, real 
real, double 
double 



Computes the 
arctangent of n. 



COS (n) 



integer , 
real , 
double 



real Computes the 
double cosine of n. 



EXP (n) 



integer, real 
real , double 
double 



Computes e**n, the 
exponential 
function . 



LN (n) 



integer, real Computes the 
real, double natural logarithm 
double of n. The value of 

n must be greater 

than . 



SIN (n) 



integer , 
real , 
double 



real Computes the sine 
double of n. 
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Table 6-2: Predeclared Functions (Cont.) 



Category 



Function 



Parameter Result 
Type Type 



Purpose 



SQR(n) 



SQRT(n) 



integer 
real , 
doubl e 



integer , 
real , 
double 



same 
as n 



real 
double 



Computes n**2, the 
square of n. The 
type of n must be 
either integer, 
real , or double; 
and the type of 
the result is the 
type of n. 

Computes the 
square root of n. 
If n is less than 
zero, PASCAL 
generates an 
error . 



Boolean 



EOF(f) 



file Boolean 
variable 



Indicates whether 
the file position 
is at the end of 
the file f. EOF{f) 
becomes TRUE only 
when the file 
position is after 
the last element 
in the file. The 
default for f is 
INPUT. 



EOLN (f) 



text file Boolean 
variable 



Indicates whether 
the position of 
file f is at the 
end of a line. 
EOLN(f) is TRUE 
on]y when the file 
position is after 
the last character 
in a 1 ine , in 
which case the 
valur of f" is a 
space. The default 
for f is INPUT. 



ODD(n) 



integer Boolean 



Returns TRUE if 
the integer n is 
odd; returns FALSE 
if n is even. 



UNDEFINED (r) 



real. Boolean Returns TRUE if 
double the value of r is 

not in a 
normal ized 
floating-point 
format. 
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Table <S-2: Predeclared Functions (Cont.) 



Category 



Function 



Parameter Result 
Type Type 



Purpose 



Transfer 



CARD(s) 



set 



integer Returns the number 
of elements 
currently 

belonging to the 
set s . 



CHR(n) 



integer char 



Returns the 
character whose 
ordinal number is 
n (if it exists) . 



ORD(n) 



ROUND (n) 



SNGL(d) 



any 

scalar 

type 

except 

a real 

type 

real , 
double 



double 



integer Returns the 
ordinal (integer) 
V a ]. u e 

corresponding to 
the value of n. 



integer Rounds the real or 
double-precision 
value n to the 
nearest integer. 

real Rounds the 
double- precision 
real number d to a 
single- precision 
real number. 



TRUNC(n) 



Miscellaneous CLOCK 



real , 
double 



none 



integer Truncates the real 
or 

do uble- precision 
value n to an 
integer. 

integer Returns an integer 
value equal to the 
central processor 
time used by the 
current process. 
The time is not 
expressed in 
milliseconds. 



EXPO(r) 



real,. integer Returns the 
double integer-valued 

exponent of the 
binary 

floating-point 
representation of 
r; for example, 
EXPO(8.0) is 4. 
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Table fi-2: Predeclared Functions (Cont.) 

Category Function Parameter Result Purpose 

Type Type 

PRED(a) any same Returns the 
scalar type as predecessor value 
type parameter in the type of a 
except (if a predecessor 

a real exists) . But it is 

type up to you to make 

sure there is 
pred/succ. The 
compi ] er wi 1 1 
always return with 
the next ordinal 
value higher/lower 
than a. There is 
no bounds 

checking. Checking 
occurs only if the 
PRED(a) or SUCC(a) 
is in an 
assignment 
statement, for 
example: 
(*$CHECK+*) 
x:=PRED(a) 

SUCC(a) any same Returns the 
scalar type as successor value in 
type parameter the type of a (if 
except a successor 

a real exists) . 

type 

PASCAL also provides additional arithmetic routines available with 
PASLIB, the PASCAL library. Use the following format to specify a 
routine from the Common Math Library: 

jresult type;> 
FUNCTION routine name (VAR parameter list): (FORTRAN / 

where : 

routine name is one of the names listed in Table 6-3. 

parameter list are acceptable arguments for this routine. See 
the TOPS-lO/TOPS-20 Common Math Library Reference 
Manual . 

result type is the type of the function result. 

Table 6-3 lists these routines and their purpose. For more 
information concerning these routines, refer to the TOPS- 10 /TOPS- 20 
Common Math Library Reference Manual . 
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Table ^-3: Library Routines 



Routine Purpose 
Name 



ARC OS arc cosine 

AINT truncation to integer 

ALOG natural logarithm 

ALOGIO base-10 logarithm 

AMAXO largest of a series 

AMINO smallest of a series 

AMINl smallest of a series 

AMOD remainder 

ANINT nearest whole number 

ASIN arc sine 

ATAN2 arc tangent of two angles 

COSD cosine (angle in degrees) 

COSH hyperbolic cosine 

COTAN con tangent 

DABS double-precision D-f loa ting-po int absolute value 

DACOS double-precision D-f loa ting-po int arc cosine 

DASIN double-precision D-f loa ting-po int arc sine 

DATAN double-precision D-f loa ting-po int arc tangent 

DATAN2 double-precision D-f loa ti ng-po int arc tangent of 
tvjo angles 

DBLE conversion from single-precision to 
double-precision D-f loating-point format 

DCOS double precision D-f loating-po int cosine 

DCOSH double-precision D-f loating-po int hyperbolic cosine 

DCOTAN double-precision D-f loating-po int cotangent 

DDIM double-precision D-f loating-point positive 
di f f erence 

DEXP double-precision D-f loating-point exponential 

DEAXP2. exponentiation of a double-precision 
D-f loa ting-po int number to the power of an integer 
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Table 6-3: Library Routines (Cont.) 



Routine Purpose 
Name 



DEAXP3. exponentiation o£ a double-precision 
D-f loating-po int number to the power or another 
double-precision D-f loating-po int number. 

DFLOAT conversion of an integer to double-precision 
D-f loating-po int format 

DIM positive difference 

")INT double-precision D-f loating-po int truncation 

,0G double-precision D-f loating-po int natural logarithm 

DLUGIO double-precision D-f 1 oa ting-point base-10 logarithm 

DMAXl double-precision D-f loating-po int largest in a 
series 

DMINl double-precision D-f loa ting-point smallest in a 

series 

DMOD double-precision D-f loating-po int remainder 

DNINT double-precision D-f loa ting-point nearest whole 
number 

DPROD double-precision D-f loating-point product 

DSIGN double-precision D-f loating-point transfer of sign 

DSIN double-precision D-f loating-point sine 

DSINH double-precision D-f loa ting-po int hyperbolic sine 

DSQRT double-precision D-f loa ting-po int square root 

DTAN double-precision D-f loa ting-point tangent 

DTANH double-precision D-f loating-point hyperbolic 
tangent 

EXPl. exponentiation of an integer to the power of 

another integer 

EXP2. exponentiation of a single-precision number to the 

power of an integer 

EXP3. exponentiation of a single-precision number to the 

power of another single-precision number 

FLOAT conversion of an integer to single-precision format 

TABS integer absolute value 

IDIM integer positive difference 
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Table 6-3: Library Routines (Cont.) 



Routine Purpose 
Name 



IDINT conversion of a dobul e-precision D-f loa ting-po int 

number to integer format 

IDNINT integer nearest whole number for a double-precision 
D-f loating-po int number 

IFIX conversion of a single-precision number to integer 

format 

INT conversion of a single-precision number to integer 

format 

ISIGN integer transfer of sign 

MAXO largest of a series 

MAXl largest of a series 

MINO smallest of a series 

MINI smallest of a series 

MOD integer remainder 

MINT integer nearest whole number for a single-precision 

number 

RAN random number generator 

RANS random number generator with shuffling 

REAL conversion of an integer to single-precision format 

SAVRAN save teh last random number generated 

SETRAN set the seed value for the random number generator 

SIGN transfer of sign 

BIND sine (angle in degrees) 

SINH hyperbolic singe 

SNGL conversion of a double-precision D-f loting-point 

number to single-precision format 

TAN tangent 

TANH hyperbolic tangent 
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6.2 FORMAT OF A SUBPROGRAM 

Subprograms are similar in format to programs. A subprogram consists 
of a heading and a block; the block contains a declaration section 
and an executable section. 

The heading specifies the name of the subprogram and lists its formal 
parameters. For a function, the heading also indicates the type of 
the value returned. The declaration section defines labels and 
identifiers for constants, types, variables, procedures, and functions 
that are used in the subprogram. The executable section contains the 
statements that perform the actions of the subprogram. 

The labels and identifiers declared in the subprogram are local data 

and are unknown outside the scope of the subprogram. The system does 

not retain the values of local variables after exiting from the 
subprogram. The following is a sample subprogram: 

P R C E. D U R E r^' R 1 N 7 .... S Y M .._ A R Fv' A Y (K>r-)R A J A R R ? S i d e : IN T II' G ER) y 

< * T h i s p V o c e d u v e p r^ :i ri t s arra'd A if i t i s s 'j iti in e t v i c: ( w h i c h :i. s 
d e t e I' in i ri e d b «j< t h e f u n c t i o n S Y M M E J R Y ) ♦ J h e a v r a v-; i s p r^ i n t e d 
.in row order y one row per linet *) 

MAR If Jy Ky L : INTEGER? 

FUNCTION SYMMETRY I BOOLEAN? 

< * r h i s f u n c t i o ri r^ e I, u r n s t r i..i e i f t fi e a r^ r^ a y i s s \:f in m e t r i c: ? f a 1 s e 
otlierwiset *) 

BEGIN 

SYMMETRY : === TRUE? 
FOR K t -'■■■■ 1 TO Side DO 
FOR L :==^ K TO Side DO 

IF ACKrLJ <> ACL^K:! THEN SYMMETRY t^-^- FALSE? 
END? 



(* be<3innin£^ of PRINT....SYM....ARRAY t) 

BEGIN 

IF SYMMETRY THEN 
BEGIN 

WRITELN ('Array entered:')? 
FOR I :=:^ :L TO Side DO 
BEGIN 

FOR J := 1 TO Side DO 

WRITE (M:irJJi : 4 )? 
WRITELN 
END? 
END 

ELSE WRITELN ('The array is not symmetric*')? 
END? 

(* end of RRINT_SYM.„ARRAY body *) 

Subprograms can be nested within other subprograms. In the previous 

example, the function SYMMETRY is nested in the procedure 

PRINT_SYM_ARRAY. The order of nesting determines the scope of an 
identi f ier . 
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Data items declared in any particular block of a PASCAL program are 
considered global to all its nested subprograms. Thus, data items 
declared in the main program block are global to all subprograms. A 
subprogram can access its global identifiers. For example, the 
function SYMMETRY above has no local variables. Tt uses the global 
identifiers K and L, and the parameters A and Side, which are declared 
in PRINT SYM ARRAY. 



6.3 PARAMETERS 

Subprograms communicate data with the main program and with each other 
by means of parameters. A subprogram can have any number of 
parameters, but need not have any at all. 

The subprogram heading lists the formal parameters, which specify the 

type of data that will be passed to the subprogram. For example, the 

formal parameter list for the procedure PRINT_SYM_ARRAY is the 
f ol lowing : 

<K>M< A t AF\'R? Side t INTEGER) 

This list specifies two parameters to be passed to PRINT_SYM_ARRAY : 
the variable A of the previously defined type ARR, and the value Side 
of type INTEGER. 

Each formal parameter corresponds to an actual parameter, specified in 
the subprogram call. For example, a valid procedure call to 
PRINT_SYM_ARRAY is the following: 

F R I N r ... S Y M .... A R RAY ( C 1..1 r r e ri t .... A r r^ y C; 1..1 r^ r^ e 1 "1 1 .._ S ;i. d e ) ? 

This procedure call passes the variable Current_Arr and the value of 
Current_Side to PRINT_SYM_ARRAY. 

The formal parameters are identifiers used in the subprogram; they 
represent the actual parameters in each subprogram call. You can call 
a subprogram several tim,es with different actual parameters. At 
execution, each formal parameter represents the variable or value of 
the corresponding actual parameter. The formal-value parameters, and 
the actual parameters to which they correspond, must be of identical 
types . 



6.3.1 Formal Parameters 

The formal parameter list specifies the identifier for each parameter 
and the type of each parameter to be used within the subprogram. 



Format 



mechanism specifier J identifier list : type; 
mechanism specifier ]] identifier list : type . . . ]] ); 
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where 



mechanism specifier 



ident i f ier list 



type 



indicates how PASCAL passes data to this 
parameter. The mechanism specifiers for 
PASCAL subprograms are VAR, PROCEDURE, 
and FUNCTION. 



specifies one or more 
separated by commas. 



identi f iers , 



specifies the type of the parameters in 
the list. You can pass values, 
variables, procedures, and functions to 
a subprogram written in PASCAL, as 
described below. 



PASCAL provides two methods for passing parameters 
subprograms . 



to 



PASCAL 



1. Value -- the value of the actual parameter expression is 
passed to the subprogram. The subprogram cannot change the 
actual parameters' s value during execution. (Value is the 
default method.) 

2. Variable -- the address of the parameter variable is passed 
to the subprogram. The subprogram can change the parameter's 
value. The VAR mechanism specifier indicates that a 
parameter is to be passed as a variable parameter. 

Value parameters pass the value of the actual parameter expression to 
the subprogram. The subprogram does not change the actual parameter's 
value during execution. Therefore, after the subprogram executes, the 
value of the actual parameter is the same as before the execution of 
the subprogram. The following example shows a formal parameter list 
that includes two value parameters: 



PROCEDURE EXAMPLE (Counter 



INTEGER? NAME 



CHAR) r 



Variable parameters pass the address of the actual parameter 
expression to the subprogram. The subprogram can change the actual 
parameter's value. Therefore, after the subprogram executes, the 
value of the actual parameter is the value assigned to the 
corresponding formal parameter within the subprogram. To specify a 
variable parameter, use the reserved word VAR before the parameter in 
the formal parameter list. The following example shows the same 
formal parameter list as in the previous example. In this example, 
the parameters have been defined to be variable parameters. 



PROCEDURE EXAMPLE (VAR Counter : INTEGER? 'v'AR Name 



CHAR)? 



6,3.1.1 Value Parameters - By default, PASCAL passes value parameters 
to PASCAL subprograms. When you specify a value parameter, the formal 
parameter list does not include the reserved word VAR. 

The actual parameter corresponding to a formal value parameter must be 
a compatible expression. Value parameters follow the rules for 
assignment compatibility. For example, the following list passes all 
parameters by value: 

(A, B : INTEGER? C t CHAR) 



6-22 



PROCEDURES AND FUNCTIONS 

The actual parameters corresponding to A and B must be integer 
expressions. The actual parameter corresponding to C must be a 
character expression. 

If the subprogram changes the value of a value parameter, the change 
is not reflected in the calling program unit. Thus, if you do not 
want the value of an actual parameter to change as a result of the 
execution of a subprogram, you pass it as a value parameter. 



6.3.1.2 Variable Parameters - To pass a variable parameter, use the 
reserved word VAR. You must use the VAR specifier to pass file 
parameters and to pass actual parameter variables with values that 
change during execution of the subprogram. The corresponding actual 
parameter must be a variable; it cannot be a constant or an 
expression. 

When you pass a variable as a variable parameter, the subprogram has 

direct access to the corresponding actual parameter. Thus, if the 

subprogram changes the value of the formal parameter, this change is 
reflected in the actual parameter in the calling program unit. 

In the example procedure PRINT_SYM_ARRAY, the actual parameter 
corresponding to A is passed using variable semantics. It must be a 
variable of the previously defined type, ARR . The actual parameter 
corresponding to Side is passed by value and must be an integer 
expression. 

The VAR specifier must precede each identifier list that is to be 
passed using variable semantics. Thus, VAR can appear more than once 
in the formal parameter list, for example: 

<VAR SEAr BREEZE I REAL? WIND J INTEGER? "v'AR SICK i MED„FILE) 

As a result of this formal parameter list, the actual parameters 
corresponding to SEA, BREEZE, and SICK are passed as variable 
parameters; and the actual parameter corresponding to WIND is passed 
as a value parameter (the default). 

Compa tibil i ty 

Variables passed to a subprogram as actual variable parameters must be 
of the same type as the corresponding formal parameters. 

The following restrictions also apply to variable parameters: 

• You cannot pass an element of a packed structure with the VAR 
specifier, although you can pass the entire structure. You 
must unpack the structure or assign its elements to simple 
variables before you can pass individual elements. 

• You cannot pass a variable of a packed set type to a formal 
parameter that is an unpacked set type, and vice versa. 

• You cannot pass a tag field of a record with the VAR 
specifier (see Section 2.3.2.1). You can pass the entire 
record or assign the tag field to another variable in order 
to pass it. 



6-2 3 



PROCEDURES AND FUNCTIONS 



6.3.1.3 Formal Procedure and Function Parameters - PASCAL allows 
procedures and functions to be passed as parameters to other 
procedures or functions. To do this, a full procedure or function 
heading is given as one parameter of the procedure being declared. 
For example, the following procedure declaration specifies one value 
parameter and one function parameter: 



PROCEDURE ACTUAL 



(^al: integer? 
function formal 



(Fi: INTEGER) J INTEGER) ? 



VAL :=^ FORMAL (^^AL + J. ) J 



The formal function parameter takes one value integer parameter, and 
returns an integer value. When procedure ACTUAL is called, you need 
to supply it with two parameters: an integer value; and, the name of 
a function which takes one integer argument and returns an integer 
value. Note that ONLY the function name is passed to the procedure; 
do NOT supply the function's parameters in the procedure call. They 
are supplied when the procedure calls the function. 

The parameter list of the formal procedure or function may consist of 
anything that can be defined in a normal procedure or function 
declaration, including value parameters, VAR parameters, conformant 
arrays, and even other procedures and functions. These procedures and 
functions obey the same rules as the formal procedure or function of 
which they are a parameter. 



The following is an example of 
procedures nested to two levels: 



a procedure heading with formal 



P R C E El U R IL" U T E R ( P R C E h U R E F R M A L .L ( F- U N C T 1 N FORMA L 2 : R E A L ? B : R E A L ) ) J 

Procedure OUTER has one parameter, a procedure. This procedure has 
two parameters, a real-typed function (with no parameters) and a real 
value parameter. 

When a subprogram is called with a procedure or function parameter, 
the parameter lists of the formal and actual parameters must be 
congruous. This means that the parameter lists must have the same 
number of parameters; and each corresponding parameter must be of the 
same kind (value, VAR, etc.) and of the same type. In the following 
example, procedure YOU_BET could be passed as a parameter to procedure 
OUTER above, because YOU_BET and FORMALl have congruous parameter 
1 ists . 

PROCEDURE YOU_BET(FUNCTION YOU: REAL? BET: READ? 

In the following example, procedures PRINTHEX and PRINTOCTAL have 
congruous parameter lists. Procedure PRINTBINARY ' s parameter list is 
not congruous to either of the others because both of its parameters 
are value parameters. 

PROCEDURE PRINTHEX (VAL: INTEGER? VAR SIZE: INTEGER)? 

PROCEDURE PRINTOCTAL <i: INTEGER? VAR F: INTEGER)? 

PROCEDURE PRINTBINARY (NUM: INTEGER? WIDTH: INTEGER)? 
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An optional syntax for formal procedure and function parameters is to 
omit the parameter list in the declaration. If this is done, no 
checking on the number or type of parameters is possible, and only 
value parameters are allowed when calling the formal procedure or 
function. No conformant array, procedure, or function parameters can 
be passed to a formal procedure or function unless they are explicitly 
declared . 

For information on calling sequences for user-defined functions and 
procedures, refer to Appendix G. 



6.3.2 Conformant Arrays 

Some programming applications require general subprograms that can 
process arrays of varying size. PASCAL allows you to declare such 
subprograms using conformant arrays. You can call the subprogram with 
arrays of different sizes, as long as their bounds are within those 
specified by the formal parameter. 

For example, you could write a procedure that sums the components of a 
one-dimensional array. Each time you use the procedure, however, you 
might want to pass arrays with different bounds. Instead of declaring 
multiple procedures using arrays of each possible size, you can use a 
conformant-array parameter. The procedure treats the formal parameter 
as if its bounds were those of the actual parameter. 

The format of a conformant-array parameter is: 

array id : ARRAY f idlow. . idup : scalar-type id] 
OF conformant-array type; 

where : 

idlow is the lower bound constant identifier 

idup is the upper bound constant identifier 

array id is one or more identifiers associated with the 
a rray 

Idlow and idup are bound identifiers. They define the lower and the 
upper limits, respectively, of the array. Each id is treated as a 
constant value in the subprogram; therefore, you cannot assign values 
to the id other than in the definition. You cannot use a subrange to 
define the limits. 

Scalar type specifies the data type of the index. Note that you must 
use a type identifier to specify the range of indices. The type 
identifier can be one of the predefined scalar types INTEGER or CHAR. 

Conformant-array type can be either a type identifier or another 
conformant-array specification. 
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Multidimensional arrays can also use conformant array parameters. The 
format is: 

array-id : ARRAY [idlow .. idup : scalar-type id! 
OF ARRAY ridlow .. idup : scalar-type id] 
OF conformant-array type; 

An abbreviated form can also be used to define multidimensional 
conformant arrays. The format is: 

array-id : ARRAY [idlow .. idup : scalar-type id; 

idn.. idn : scalar-type idn; ...] OF 
conformant-array type; 

When a subprogram with conformant-array parameters is called, the IDs 
(the bound identifiers) assume the values of the lower and upper bound 
values of the actual parameters. These values are those specified in 
the definition section of the actual-array parameter. 

A conformant-array parameter can have up to one conformant dimension 
packed. This means that a one-dimensional conformant-array parameter 
can be packed or unpacked. A multidimensional conformant-array 
parameter can be unpacked, or its last (rightmost) conformant 
dimension can be packed. Note that this restriction applies only to 
the conformant part of the parameter; the conformant array type can 
be of any type, packed or unpacked. 

The components and indices of the actual and formal conformant-array 
parameters must be of compatible types. The rules for 
conformant-array compatibility are the same as those for other arrays 
with one exception. That is, the range of the index types of the 
actual-array parameter must be within the range specified for the 
formal parameter. 
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Example 1 

The following program shows how to declare and use conformant-array 
pa rameters . 

I"' R G R A M D y n a r' r < I N P U T' ? U T I-' U T > y 

< * r h i <r> p T^ o <•{ V B in .1 1 1 u <= t r a t e s t h e u s e o f c o n f o r' in b n t - a r v a •■.■.{ 

pari!} meters t 

T h e p T^ o c e ct i.i r e? S u in i s c^ a 1 1 e d r r^ o in t h e m a :i. ri p t' o f:i r a m w ;i. I h t w o 

d i f f e i^ e n t a cr i u a .1. p a ins in e t e r <;> J A r r^ .1 <a n d A r r^ 2 » >K ) 

TYPE Rn<=$ ■■■■■■= 1, .'50f 

VAR Arrl J ARRAYL" .1 ♦ ♦ 5!] OF INTEGER? 

A r r2 i ARR AYt: 7 ♦ ♦ 20 J OF INTEGER ? 

KrJ t INTEGER? 



ARRAY rLaw»»H.i?Jh 



INTEGERS OF 



PROCEDURE Bum (VAR Inarr 

INTEGER) ? 

(* This proc£?dure accepts actual -array parameters with inte?.=5er 

components whose indices are within the ran<3e specified by 

Rn<;S ♦ * ) 



VAR IrAns : INTEGER? 
BEGIN 

Ans t~- Or 

FOR i:== Low TO HisJh DO 



Ans 
WRITELNC 
END? 



Ans + InarrCI.1? 
'The sum of the components 
*end Sum*) 



ist ' y Ans) 



<* MAIN PROGRAM *) 
DEGIN 

WRITELN ('TYPE 5 INTEGERS')? 

FOR KJ:--= 1 TO 5 DO 
READ (ArrlCK!!) ? 

Sum < Arrl ) ? 

WRITELN-: 'TYPE 14 INTEGERS')? 

FOR J::= 7 TO 20 DO 
READ(Arr2i:J3)? 

Sum (Arr2) 
END* 

This program sums the components of the arrays Arrl and Arr2. The 
procedure Sum includes a 1-dimensional conformant-array parameter, 
Inarr, whose indices are of type Rng .. Within the main program. Sum is 
called with two different arrays: Arrl with index type [1..51, and 
Arr2 with index type [7.. 20]. 

The first procedure call, Sum(Arrl), passes Arrl to Sum. Low assumes 
the value of 1„ and Fligh assumes the value of 5. The FOR loop 
processes array components Inarr[n to InarrTB]. When Sum is called 
with Arr2, Low assumes the value of 7, and High assumes the value of 
20. When Sum is called with Arr2, the FOR loop processes the 
components Inarr[7] to Inarr[20]. 
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Example 2 

A conformant-array parameter can have more than one dimension, as in 
this example: 

TYF--E Level ...Fi;ari<=^e =•= 1,,6; 
Nc lasses •■"■ 1 ♦ ♦ 8 5 
Nstudents ■■^■■■- 1 * «40; 
Name s =^ F"' A C K E B A R R A Y i: 1 ♦ . 3 5 .1 F- C Fl A R y 

i^AR Students : AF"<F<AY F! 1 ♦ . 6 ? 1 . » 8 y 1 . « 40!] OF" Names ? 



F-' R C F: n U R F: K l d .... C; o u n t ( S c.^ h o o 1 : a R R a Y F; F_ e v e l .... F.. o w ♦ » L.. e V e 1 .... F I :i. <:i h J 

F.. e v e 1 .... R b n <^ e ? N cr 1 a i;i <;> e s .... F.. d w » ♦ N c.^ .1 s s s e <:i .... I-I i <.=i f i t 
N c 1 a s s e s ? N s t u d e ri t b F.. o w ♦ <- N <;> t i..i d e n t .... F I .i. sj F) : 
; NstudentJ OF" Names)? 



This example defines School as a three-dimensional conformant-array 
parameter. Each array passed to School might contain the names of all 
the students in a particular elementary school. The indices of the 
array denote the number of grades in the school, the number of classes 
at each grade level, and the number of students in each class. 

The actual-array parameters can have from one to six grades, one to 
eight classes at any grade level, and one to forty students in any 
particular class. Furthermore, the indices of the actual-array 
parameters must be within the ranges shown in the TYPE section. For 
example, a school with six grades must use integer indices from one to 
six. Indices of zero to five, for instance, cannot be used. 



6.4 DECLARING A PROCEDURE 

A procedure is a group of statements that perform a set of actions. 
The use of procedures allows you to break a complex program into 
several units, each of which performs one task. For example, a 
program that computes social statistics from survey data might contain 
procedures to input and validate the data, select a random sample, and 
print results. 

To declare a procedure, specify its header and block in the procedure 
and function section. The header consists of the word PROCEDURE and 
the procedure name along with any parameters you want to include. The 
block consists of its own declaration section and the executable 
section. You can declare a procedure in the main program, in a 
module, or in another subprogram. 
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Format 1 

PROCEDURE procedure- identi fier [(formal parameters) J ; 

labe] section; 

constant section; 

type section; 

variable section; 

procedure- and- function section; 

BEGIN 

statement [[; statement..,.]] 
END; 

Format 2 

ffT [GLOBAL] T|\ PROCEDURE procedure id [{formal parameters)] ; [FORWARD; 



iTT [GLOBAL] Tl^ 
)ll [FORTRAN] JJf 



Format 3 

PROCEDURE procedure id [(formal parameters) J ;([]" EXTERN [ALJ ;"ni 

ill FORTRAN; ]}) 

Format 1 shows the format for a procedure that is included within the 
program that calls it. 

Format 2 shows the format for a procedure that can be called 
externally, that is, it can be called from another program. The 
FORWARD declaration permits the use of forward references in the 
declarations section. Forward declarations are described in Section 
6.6. The FORTRAN declaration at the beginning of the line indicates 
that this procedure can be called externally by a FORTRAN program. 

Format 3 shows the format for a procedure that is being called 
externally. The procedure must be compiled separately from the source 
program that calls it. Placing the FORTRAN declaration at the end of 
the line indicates that the procedure being called by PASCAL is a 
procedure written in the FORTRAN language. Refer to Section 6.7. 

procedure id 

specifies the identifier to be used as the name of the procedure. 

formal parameters 

contains the names and types of the formal parameters. It 
optionally can include the reserved words VAR, PROCEDURE, and 
FUNCTION. 

label section 

declares local labels, 
constant section 

defines local constant identifiers, 
type section 

defines local types. 
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variable section 

declares local variables, 
procedure-and-f unction section 

declares local procedures and functions. 

statement 

specifies an action to be performed by the procedure. A 
procedure can contain any of the statements described in Chapter 
5. 

A procedure consists of a heading and a block. The procedure block is 
similar in structure and contents to the main program block, with the 
following exceptions: 

• The declaration section cannot contain VALUE initializations. 

• The procedure block ends with END followed by a semicolon 
(;), rather than a period (.) as in the main program. The 
procedure does not have a block if it is a forward 
declaration or is defined externally (EXTERNAL or FORTRAN) . 

You must declare all the variables that are local to the procedure, 
but you should not redeclare the formal parameters or the procedure 
identifier as variable, type, or constant identifiers. 

For the two examples that follow, assume that these declarations have 
been made: 

CONST NUMBER = 20? 

T' Y F" Ei: R a ri sie - ♦ . 1 ? 

List ■■^- Ah^'RAYCl. ♦NUMBEFn OF R3n<.Se? 

VAR ARR : List? 

Mini muiTi t Max i mum \ Rarui^e 5 
Average J RE"AL r 

Example 1 

PROCEDURE REArL..WRITE (VAR A : List)? 
VAR I : INTEGER? 
BEGIN 
WRITELN ("Type a list of 20 integers' ? 

'in the ran^e of to 100* ')? 
FOR I := 1 TO Number DO 
BEGIN 

READ(ACI3)? 
WRITE(Ari3:7)? 
WRITELN 
END 
END ? 

The procedure READ_WRITE reads a list of 20 integers, inserts them 
into the array A, and writes the array. READ_WRITE uses one variable 
parameter, the array A. 

Given the declaration of ARR, the following is a valid procedure call: 

RE AD_ WRITE (ARR)? 
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As a result of this call, the list of integers is written in the array 
ARR. The value of this array is then returned to the program unit 
that called the procedure READ_WRITE. 

Example 2 

F'F\'0CI::;DURE M:iN_..iiAX,...A<v'f3 (VAR Miny hax t Raru^e? 

MAR Av£i i REAL? A : l...:lst)? 
yAR Suniy NMax? NMiny J : INTEGER? 

BEGIN 

Max ?■•== Ai::i:i? Min t~-^ Max? Suit, t ==: Max? 
NMax t= :l? NMin i ■■■■■■■ J.? 
FOR J :=^ 2 TO NUMBER DO 
BEGIN 

Sum t- Sum + ACJ.1? 
IF At: J 3 > Max THEN 
BEGIN Max t-==- Ai:J3? 

NMax t^---- 1 
END 

ELSE IF At:J3 = Max THEN 
NMax J= NMax + 1? 
IF AC J.] < Mir. THEN 
BEGIN Mir. := AC J!]? 

NMin t^ 1 
END 

ELSE IF AC J 3 == Min THEN 
NMin i ■■'-■■ NMin i 1 
END? 

MG ;= Sum/NUMBER? 
WRITELN? 
WRITELN< 'Maximum =' yM3x!4y ' y occurring" y NMax : 4y ' times')? 

WRITELN? 

WRITELN< 'Minimum ='y MinMr'y occurrinia'y NMinMy' times')? 

WRITELN? 

WRITELN ('Average value (truncated) == ' y TRUNC< Av<3) : 10) ? 
WRITELN CAveras^e value ='y Av^ I 20) 
END y 

This procedure computes the minimum, maximum, and average values in 
array A. It also counts the number of times the minimum and maximum 
values occurred, and stores those numbers in NMin and NMax. The 
WRITELN statements print the results of each of those computations. 

Min, Max, and Avg are formal variable parameters. Their values, as 
assigned in the procedure MIN_MAX_AVG, are returned to the calling 
program unit and can be used for further computations in the program. 
A is specified as a value parameter because its value does not change 
in the procedure. 

The following is a valid procedure call to the procedure: 

Min„M3x_Av£i( Minimum y Maximum r Averaiaey ARR)? 

The values of the formal parameters Min, Max, and Avg are returned to 
the actual parameters Minimum, Maximum, and Average, which were 
defined in the main block of the program. 



6-31 



PROCEDURES AND FUNCTIONS 



6.5 DECLARING A FUNCTION 

A function is a group of statememts that compute a scalar or pointer 
value. To declare a function, specify its heading and block in the 
procedure and function section. 

Format 1 

FUNCTION function id [[(formal parameters)]] rresult type; 

label section; 

constant section; 

type section; 

variable section; 

procedure- and- function section; 



BEGIN 

statement 
END; 



; s ta tement . . . 



Format 2 



m 



[GLOBAL] T\\ FUNCTION function id 
[ FORTRAN! U' 



[[{formal parameters)]] ; [[FORWARD;]! 



Format 3 

FUNCTION function id 



(formal parameters)]] ; in" EXTERN [Jal]] 



FORTRAN; 



Format 1 shows the format for a function that is included 
program that calls it. 



'Df 



within the 



Format 2 shows the format for a function that can be called 
externally, that is, it can be called from another program. Placing 
the FORTRAN declaration at the beginning of the line indicates that a 
FORTRAN program can call this procedure. The FORWARD declaration 
permits the use of forward references in the declarations section. 
Forward declarations are described in Section ^.6. 

Format 3 shows the format for a function that is defined externally; 
the procedure is compiled separately from the source program that 
calls it. Placing the FORTRAN declaration at the end of the line 
indicates that the procedure being called by PASCAL is written in the 
FORTRAN language. Refer to Section 6,1. 

function id 

specifies the identifier to be used as the name of the function. 

formal parameters 

contain the names and types of the formal parameters. They 
optionally can include the reserved words VAR, PROCEDURE, and 
FUNCTION. 

result type 

specifies the type of the function's result. The result must be 
a scalar or pointer value. 
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label section 

declares local labels, 
constant section 

defines local constant identifiers, 
type section 

defines local types, 
variable section 

declares local variables, 
procedure-and-f unction section 

declares local procedures and functions. 

statement 

specifies an action to be performed by the function. A function 
can contain any of the statements described in Chapter 5. A 
function must contain a statement that assigns a value to the 
function identifier (for every potential path through the code). 
Tf it does not, the value of the function could be undefined. 

A function consists of a heading and a block. The formal parameter 
list in the function heading is identical in format to the list in the 
procedure heading. The function block is similar in structure and 
contents to the main program, with the following exceptions: 

• The function cannot contain a value initialization section. 

• The function block ends with END followed by a semicolon (;), 
rather than a period (.) as in the main program. The 
function does not have a block if it is a forward 
declaration, or if it is defined externally (EXTERN(AL) or 
FORTRAN) . 

You must declare all variables that are local to the function, but you 
should not redeclare a variable, type, or constant with the same name 
as a formal parameter or the function identifier. 

Each function must include a statement or statements that assigns a 
value of the result type to the function name. The last value that is 
assigned to the function name is returned to the calling program unit. 
To use the value, include a function call in the calling unit. Unlike 
a procedure call, a function call is not a statement. It simply 
represents a value of the function's result type. 
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Side Effects 

A side effect is an assignment to a nonlocal variable, or to a VAR 
parameter, within a function block. Side effects can change the 
intended action of a program and therefore, should be avoided. The 
following program illustrates an example of a side effect. 

F R G R A M [-: X a in p I e ( IJ 7" F' LJ T ) y 
V^R XyY : INTEGEF<r 

ANSly ANS2 : BOOLEAN? 

FUNCTION Positive (Th:i.si;3r i INTEGER) : BOOLEAN? 
BEGIN 

P o s i t :i. V e * -= F A I... 3 F. r 
IF This^^ar > THEN 
BEGIN 

X :=== ThisVar .LOy (* Side effect on X *) 

Positive :=^ TFv'UE 
END 
EN By (* end Positive*) 

BEGIN (* MAIN PFv'OGRAM *) 

Y :^^ 7f X :==;l5y 

ANSI t-'-- Posit ive<X) ANB Posit ive<Y)y 
WRITELN ('ANSI e«uals ' y ANSI ) J 

Y ;== 7? X :== 15 y 

ANS2 :=== Positive(Y) ANB Positive<X)y 
WRITELN ('ANS2 eauals ' y ANS2 ) 
ENB, 

This example generates the following output: 

ANSI equals TRUE 

ANS2 e«U3ls FALSE 

Thus, the output depends on which function call is evaluated first: 
Positive(Y) or Positive(X). PASCAL does not guarantee which part of 
an expression is evaluated first. The resulting value of a function 
should not depend on when the function is called, as it does in the 
example above. Therefore, you should avoid side effects on global 
variables. 



Example 1 



FUNCTION COUPONS : REAL? 
yAR ANS : (YESy NO) ? 

AMOUNT y SUBT : REAL? 
BEGIN 

SUBT := 0? 

WRITELN ("Any coupons? Type yes or no.')? 
READLN (ANS)? 
IF ANS==YES THEN 
BEGIN 

WRITELN ('Type value of each coupony one per liney 

CTRL/Z when finished?')? 
REPEAT 

READLN (AMOUNT)? 
SUBT := SUBT + AMOUNT 
UNTIL EOF 
END? 
COUPONS := SUBT 
END? (* End COUPONS* ) 
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The function COUPONS computes the total value of a group of coupons. 
It uses only the three local variables, ANS , AMOUNT, and SUBT, and 
requires no parameters. The result of this function is the real tota] 
of the coupon values. The assignment statement, COUPONS := SUBT, 
assigns the result to the function identifier. 

To use the function COUPONS, specify its name, as follows: 
TOTAL t^^ SUBTOTAL - COUPONS? 

The function call is treated as a real-valued expression in this 
statement. Note that you can use the function call in the same way 
that you can use a value of its result type. 

Example 2 

FUNCTION SYMMETRY (VAR A J ARR) : BOOLEAN? 

(*This function returns true if the array A is syirimetric ? it 

returM'is false otherwise**) 

VAR I^ J : INTEGER? 
BEGIN 

SYMMETRY t ■■■■== TRUE? 
FOR I := 1 TO SIZE DO 

FOR J J= I TO SIZE DO 

IF ACIyj:i <> ACJrI.l THEN SYMMETRY J- FALSE 
END? (* SYMMETRY *) 

The function SYMMETRY uses one variable parameter, the array A. 
SYMMETRY returns a Boolean value; the result is TRUE if A is 
symmetric, and FALSE if A is not symmetric. 



6.6 FORWARD DECLARATIONS 

Normally, you must declare subprograms before you refer to them. 
However, a subprogram can reference another subprogram that has not 
yet been declared if you use a FORWARD declaration. The forward 
declaration provides the compiler with information about the 
forward-declared subprogram's formal parameters, and indicates that 
the block of the subprogram follows later in the source file. 

For example, a complete declaration is impossible if two subprograms 
call each other recursively. Omitting the declaration is also 
impossible because PASCAL needs information about a subprogram's 
formal parameters before it can compile a reference to the subprogram. 
Therefore, you must forward-declare one of the recursive subprograms. 

A forward declaration consists of the subprogram heading (including 
the formal parameter list, if any, and the result type, if it is a 
function) and the FORWARD directive without a subprogram block, for 
example: 

PROCEDURE CHESTNUT <BLD :REAL? DOC : CHAR? VAR ARC : REC) ? FORWARD? 

This example declares the procedure CHESTNUT in a FORWARD declaration. 
The FORWARD declaration includes only the information shown in the 
example. It could also include FORTRAN or GLOBAL, as in Format 2 
above. 
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When you specify the block of a forward-declared subprogram, you must 
not repeat the formal parameter list or the result type of a function. 
Except for these omissions, declare the heading and block in the 
normal way. ^ 

Example 

F" I J N C T 1 N A i;i 1.1 E R < C) I"' :l. 9 F 2 f F 3 X R E A I... ) : R E A L ? F R W A R n ? 

proceduf;;e prinier (student : name. ...array) 5 



BEGIN 



Z J=^ ADDER (AyByC) 
END? 

FUNCTION ADDER ( * OPJ. ^ 0P2 y 0P3 : REAL X REAL*)y 



BEGIN 



PRINTER ('Leonardo ds l^inci')? 



END? 



This example forward-declares the function ADDER. The block of the 
function appears after the declaration of the procedure PRINTER. Note 
that the heading of the ADDER block specifies its formal parameters 
and result type within comment delimiters. Although you must omit the 
parameter list and result type when you define the function block, 
inserting them as a comment is a good documentation practice. 



6.7 EXTERNAL SUBPROGRAMS 

The FORTRAN and EXTERNAL directives indicate procedures and functions 
that are defined external to a PASCAL program. With these directives, 
you can declare subprograms written in another language (such as 
FORTRAN or MACRO) and PASCAL subprograms that are compiled separately. 
In PASCAL, the FORTRAN directive should be used only for separately 
compiled routines written in FORTRAN or a language using the FORTRAN 
subprogram calling conventions. The EXTERNAL directive must be used 
only for separately compiled external routines written in PASCAL. 

If you declare separately compiled PASCAL subprograms as EXTERNAL, 
their names must be unique within the first six characters. In 
addition, an external subprogram cannot have the same name as the main 
program . 
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Example 1 

FUNCTION SCORE (RESULT J REAL) : REAL? EXTERNAL? 

The function SCORE is a procedure in a library that exists on disk. 
This declaration declares SCORE as an external subprogram. 

Example 2 

P R C E li U R E F R S T R ( S : I"" A C K E D A R R A Y E L .AM 1 N T E: G E R :;| F C I -I A R ) F" 1^^ T RAN? 

This statement declares the FORTRAN procedure FORSTR. The forma] 
parameter list specifies S as a conformant-array parameter. 

6.8 MODULES FOR SEPARATE COMPILATION 

By placing PASCAL procedures and functions in a MODULE, you can 
compile them separately from the main program. At load time, you 
specify the compiled files containing the main program and the modules 
to be loaded together in the executable image. The executable image 
can include any number of modules, and each module can contain any 
number of subprograms. 



Fo rma t 



11 [OVERLAID] J MODULE module name (program parameters); 
label section; 
constant section; 
type section; 
variable section; 
procedure- and- function section; 
END. 

[OVERLAID] 

Specifies that the module shares global values with the main 

program that calls it. If the module is OVERLAID; then the 

constant, type, and variable sections must be identical to those 
in the main program. 

modul e name 

specifies the identifier to be used as the name of the module. 

program parameters 

lists the external files. This list must be identical in order 
and in content to the list in the main program heading. 

label section 

declares global labels. PASCAL issues a warning-level message if 
a module contains a label section, but ignores the labels. 

constant section 

declares global constant identifiers as in a main program, 
type section 

defines global types as in a main program. 



6-37 



PROCEDURES AND FUNCTIONS 



variable section 

declares global variables as in a main program, 
procedure-and-f unction section 

declares the procedures and functions contained in the module. 

A module is similar to a main program, except that it has no value 
initialization section and no executable section. Modules can contain 
the label, constant, type, variable, and procedure-and-f unction 
sections. (PASCAL issues a warning-level message if a nodule contains 
label declarations, but ignores the labels.) If the module is 
OVERLAID, then the constant, type, and variable sections and the 
program parameters must be identical to those in the main program. 
The procedure-and-f unction section defines the subprograms contained 
in the module. 

To ensure that the program parameters and the constant, type, and 
variable sections are identical in the main program and in all 
modules, you can place them in a separate file. Then, you can use the 
%INCLUDE directive to insert the contents of the fi]e into the main 
program and into all modules, instead of repeating all the 
declarations and definitions. 

If a module shares global variables with a main program, both the 
module and the program headings must include the attribute [OVERLAID]. 
If the module heading does not contain [OVERLAID], then all its global 
variables are private to the module and cannot be accessed by the main 
program or other modules. Subprograms declared at the outermost level 
of a module can be declared and called from the main program (or from 
another module) . You must declare the subprogram with the EXTERNAL 
modifier in the calling program unit and with the [GLOBAL] attribute 
in the module. Similarly, subprograms declared at the outermost level 
of the main program with the [GLOBAL] attribute can be declared as 
EXTERNAL in a module. 

Each subprogram in the module can access data declared either locally 
to itself or by the main program. 

Examples 

COVERLAIDJ MODULE SEP (INPUT » OUTPUT)? 
VAR I : INTEGER? 
PROCEDURE READER (N : INTEGER)? 
VAR KrP : INTEGER? 
BEGIN 

I := 0? 

FOR K := 1 TO N DO 
BEGIN 

READ < P ) ? 

IF P=0 THEN I :=• I + 1? 
END 
END? <* READER *) 
END* (*MODULE SEP *) 

The MODULE SEP contains one procedure, READER. You can declare READER 
as an external subprogram in another module or in the main program. 
Because SEP contains the definition of a global data item, I, it is 
declared as an [OVERLAID] module. If you declare READER as an 
external subprogram, you must declare READER as [GLOBAL] in the module 
so that the main program can call it. 
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INPUT AND OUTPUT 

This chapter describes input and output (I/O) for PASCAL on TOPS-20. 

PASCAL provides predefined procedures to perform input and output to 

file variables. These procedures are divided into the following 
categories : 

General Procedures 

• OPEN -- associates a file with specified characteristics 

• CLOSE — closes a file 

• FIND -- performs direct access to file components 
Input Procedures 

• RESET — opens a fi]e and prepares it for input 

• GET -- reads a file component into the file buffer variable 

• READ -- reads a file component into a specified variable 

• READLN -- reads a line from a text file 
Output Procedures 

• REWRITE -- truncates a file to length zero and prepares it 
for output 

• PUT — writes the contents of the file buffer variable into 
the specified file 

• WRITE -- writes specified values into a file 

• WRITELN -- writes a line into a text file 

• LINELIMIT -- terminates program execution after a specified 
number of lines have been written into a text file 

• PAGE — skips to the next page of a text file 

In addition, you can use the predefined functions EOF and EOLN with 
text files. 

The following sections describe: 

• PASCAL file characteristics 

• PASCAL record formats 
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• PASCAL input and output procedures 

• Terminal T/0 

The input and output procedures are presented in alphabetical order. 

7.1 FILE CHARACTERISTICS 

This section describes the organization of records and methods of 
accessing records. 

The term file organization app] ies to the way records are physically 
arranged on a storage device. The term record access refers to the 
method used to read records from or write records to a file, 
regardless of the file's organization. A file's organization is 
specified when the file is created and cannot be changed. Record 
access is specified each time the file is opened and can vary. 

7.1.1 File Names 

The file name indicates the system name of a file that is represented 
by a PASCAL file variable in an OPEN procedure (Section '^ .1) . For the 
file name, you can specify a character-string expression that contains 
a TOPS-20 file specification or a logical name. Apostrophes are 
required to delimit a character-string constant or a logical name used 
as a file name . 



7.1.2 Logical Names 

The TOPS-20 operating system provides the logical name mechanism as a 
way of making programs device and file independent. If you use 
logical names, your PASCAL program need not specify the particular 
device on which a file resides or the particular file that contains 
data. Specific devices and files can be defined at run time. 

A logical name is an alphanumeric string that you specify in place of 
a file specification. Logical names provide great flexibility because 
they can be associated not only with, a complete file specification, 
but also with a device, a device and a directory, or even another 
logical name. 

On TOPS-20 you can create a logical name and associate it with a file 
specification by means of the TOPS-20 DEFINE command. Thus, before 
program execution, you can associate the logical names in your program 
with the file specifications appropriate to your needs, for example: 

eHEFTNE data: PS:<EiENJAMIN>TEST.DAT»2 

This command creates the logical names DATA: and associates it with 
the file specification PS : <BENJAMIN>TEST.DAT. 2 . The system uses this 
file specification when it encounters the logical name DATA: during 
program execution, for example: 

OF'EN (INDATAf 'DATAJ'r OLD)? 
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In executing this PASCAL statement, the system uses the file 
specification PS : <BENJAMIN>TEST.DAT. 2 for the logical name DATA:. To 
specify a different file when you execute the program again, issue 
another DEFINE command, for example: 

(» DEFINE DATA : PS ; <JENNIFER>F;:EAIL. . DAT ♦ 7 

This command associates the logical name DATA: with a different file 
specification and replaces the previous logical name assignment. The 
OPEN statement above now refers to the file PS : <JENNIFER>REAL.DAT. 7 . 
For more information about the use of logical names, refer to the 
TOPS-20 User's Guide. 



7.1.3 File Organization 

PASCAL supports sequential file organization. Sequential files 
consist of records arranged in the order in which they are written to 
the file. The first record written is the first record in the file; 
the second record written is the second record in the file, and so on. 
As a result, records can be added only at the end of the file. 



7.1.4 Record Access 



fy record access mode as a parameter to the 
'ovides two ways of accessing records: 



You specify record access mode as a parameter to the OPEN procedure 
PASCAL pr( ■ ' 



• Sequential 

• Direct 

If you select sequential access mode, records are written to or read 
from the file, starting at the beginning and continuing through the 
file one record after another. 

Having sequential access to a file means that you can read a 
particular record only after reading all the records preceding it. 
New records can be written only at the end of a file that is open for 
sequential access. 

If you select direct access mode, you can specify the order in which 
records are accessed. Each FIND procedure call must include the 
relative record number indicating the record to be read. You can 
directly access a file only if it contains fixed-length records, 
resides on disk, and is open for input (reading) . 



7.2 RECORD FORMATS 

Records are stored in one of two formats: 

• Fixed length 

• Variable length 

You can access fixed-length records in either sequential or direct 
mode. Variable-length records can be accessed only in sequential 
mode. 
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7.2.1 Fixed-Length Records 

When you specify fixed-length records, you are specifying that all 
records in the file contain the same number of bytes. A file opened 
for direct access must contain fixed-length records to allow the 
record location to be computed correctly. All binary files (that is, 
all files except TEXT files) must have fixed-length records. PASCAL 
does not support binary files with var iabl e- 1 eng th records. 



7.2.2 Variable-Length Records 

Va riable- length records can contain any number of bytes up to the 

buffer size specified when the file was opened. TEXT files must have 

variable-length records. PASCAL does not support TEXT files with 
fixed-length records. 



7.3 THE CLOSE PROCEDURE 

The CLOSE procedure closes an open file. 
Fo rma t 

CLOSE (file variable); 
where : 

file variable specifies the file to be closed. 

Execution of this procedure causes the system to close the file. Each 
file is automatically closed upon exit from the procedure in which it 
is declared, except those which have been dynamically allocated with 
the procedure NEW. These files should be explicitly closed; if not, 
they are automatically closed when the program ends, or when they are 
DISPOSED. 

You can close only files that have been opened explicitly with the 
OPEN procedure or implicitly by the RESET or REWRITE procedure. 
Therefore, you cannot close the predeclared file variables INPUT and 
OUTPUT. 

Exampl e 

CLOSE (Albums)? 

This procedure closes the file Albums to further access, and deletes 
the file if it is internal to the current program. 



7.4 THE FIND PROCEDURE 

The FIND procedure positions a file pointer at a specified component 
in the file. 

Fo rma t 

FIND (file variable, integer expression); 
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where : 

file variable specifies a file that is open for direct 

access. The file must have fixed-length 
records. 

integer expression specifies the positive integer 

expression indicating the component at 
which to position the file. The 
component number must not be less than 
or equal to zero. 

The FIND procedure allows you to directly access the components of a 
file. You can use the FIND procedure to move forward or backward in a 
file. The file must be open for direct access. That is, you must 
have specified DIRECT in the OPEN statement for that file. In 
addition, the file must have fixed-length records. 

After execution of the FIND procedure, the file is positioned at the 
specified component. The file buffer variable assumes the value of 
the component, for example: 

F"IND ( Albums y 4)? 

As the result of this statement, the file position moves to the fourth 
component in the file Albums. The file buffer variable Albums" 
assumes the value of the fourth component. 

If you specify a component beyond the end of the file, no error 
occurs. 

You can use the FIND procedure only when reading a file. If the file 
is open for output (that is, with REWRITE), a call to FIND results in 
a run-time error. 

Example 1 

BEGIN 

!"■ 1 N i;i (A 1 b 1..I in s y C u r- r e n t i 2 ) y 



END? 

If the value of Current is 6, this statement causes the file position 
to move to the eighth component. The file buffer variable Albums" 
assumes the value of the component. 

Example 2 

BEGIN 

f J: N n ( A 1 b «j iTi s y C u I' r e i"i t - 1 ) y 



END? 

If the value of Current is 6, this statement causes the file position 
to move backward one component to the fifth component. 
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7.5 THE GET PROCEDURE 



The GET procedure reads the next component of a 
buffer variable. 



file into the file 



Fo rma t 

GET (file variabl e) ; 
where : 

file variable specifies the file to be read. 

Before you use the GET procedure to read one or more file components, 
you must have called the RESET procedure to prepare the file for 
reading (input) . RESET moves the file position to the first component 
and assigns its value to the file buffer variable. 

As a result of the GET procedure, the file position moves to the next 
component of the file. The file buffer variable takes on the value of 
that component, for example: 

RESET (Books)? 

M o w T^ e c: t ■■■■ B o o k s "" ? 

GET (Books) y 

After execution of the RESET procedure, the file buffer variable 

Books" is set to the first component of the file. The assignment 

statement assigns this value to the variable Newrec. The GET 
procedure then assigns the value of the second component to Books", 

moving the file position to the second component. The next GET 

procedure moves the file position to the third component, as shown in 
Figure 7-1. 



Beginning 
of File 



• • • 



EOF 



Beginning 
of File 



RESET GET 
(BOOKS) (BOOKS) 



• • • 



EOF 



k i 



RESET GET GET 

(BOOKS) (BOOKS) (BOOKS) 



MR-S-3117-83 



Figure 7-1: File Position After GET 



By repeatedly using GET statements, you can read sequentially through 
the f ile . 
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When you reach the end of the file and you request a GET operation, 
EOF automatically becomes TRUE, and the file buffer variable becomes 
undefined. When EOF is TRUE, you cannot use the GET procedure. 
PASCAL signals a run-time error, and program execution is aborted. 



Example 



BEGIN 

GET ( Phones) y 



END; 



This example reads the next component of the file Phones into the file 
buffer variable Phones". EOF(Phones) must be FALSE; if it is TRUE, 
an error occurs. 



7.6 THE LINELIMIT PROCEDURE 

The LINELIMIT procedure terminates execution of the program after a 
specified number of lines have been v^/ritten into a text file. 

Fo rma t 

LINELIMIT (file variable, n) ; 

where : 

file variable specifies the text file to which this limit 

appl ies. 

n represents a positive integer expression 

indicating the number of lines that can be 
written to the file before execution 
terminates. 

When PASCAL initializes a text file, it specifies a large default line 
limit. You can override this limit by calling LINELIMIT with your 
desired value. 

After the number of lines output to the file has reached the line 
limit, program execution terminates. 



Example 



BEGIN 

LINELIMIT ( Debts y 100)? 



end; 



Execution of the program terminates after 100 lines have been written 
into the text file Debts. 



7-7 



INPUT AND OUTPUT 



7.7 THE OPEN PROCEDURE 

The OPEN procedure does not actually open a file but rather allows you 
to specify file attributes. You cannot use OPEN on a file that has 
had a RESET or REWRITE done, or on the predeclared file INPUT. 

Format 1 

OPEN (file variable d ,file name ]] [[ , history J 

H , record length ]] d , record-access-method ]] 
[[ , record type ]] J , carriage control J ); 

Format 2 

OPEN (FILE_VARIABLE := file variable 

[[ ,FILE_NAME := file name ]] 

I , HISTORY := history status ]] 

I ,RECORD_LENGTH := positive integer ]] 

I ,RECORD_ACCESS_METHOD := record-access-mode ]] 

I ,RECORD_TYPE := record type ]) 

I CARRIAGE__CONTROL := carriage control ]) ); 

where : 

file variable specifies the PASCAL file variable associated 

with the file. You cannot open the 
predeclared file variable INPUT. 

( internal f i les) 

This parameter is ignored for internal files. 
The system creates a unique name for each 
internal file. 

(external files) 

file name provides information about the file to 

TOPS-20. The file name can be a variable or 
constant identifier defined as type PACKED 
ARRAY ri..n] OF CHAR, or a file specification 
enclosed in apostrophes (for example, 
• PS : <MASELLA>BOOKS . DAT ' ) . 

If you omit the file name, PASCAL will first 
attempt to use the file variable identifier 
as a logical name. If that name is not 
defined, PASCAL will use the defaults shown 
in Table 7-1 . 

The file variable and the file name parameters designate the file to 
be opened. The remaining parameters specify attributes for the file 
and are summarized in Table 7-2, in Section 7.7.5. Except for the 
file variable name, all parameters are optional. Any parameters you 
specify, however, must be in the order shown above unless you use 
keyword syntax. 

You can specify either the value of the parameter or the keyword and 
the value of the parameter. You can also use a combination. 
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To specify only the value without the keyword, place each parameter in 
the same order shown in the format. If a particular parameter is not 
used, then a comma may be inserted. PASCAL generates a warning 
message if the position of an unused parameter is not indicated by a 
comma. However, the correct default for the missing parameter is used 
in either case. 




Table 7-1: Default Values for TOPS-20 External File Specifications 



Element 



Default 



Device 
Di rectory 
File name 

File type 
Generation number 



Current user device 

Current user directory 

PASCAL file variable name, 
truncated to first 39 
cha racters 

DAT 

OLD: highest current number 
NEW: highest current number + 1 



Because the RESET and REWRITE procedures actually open fi]es, you need 
not always use the OPEN procedure. RESET and REWRITE impose the 
defaults for the TOPS-20 file specification, file status, record 
length, record access mode, record type, and carriage control shown in 
Table 7-1 and Table 7-2. For the file status attribute, RESET uses a 
default of OLD, and REWRITE uses a default of NEW. You must use the 
OPEN procedure for the following: 

• To open a file for DIRECT access by the FIND procedure 

• To specify a buffer size other than 133 for a text file 

• To open any file with other than the default file name 
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7.7.1 File History — NEW, OLD, READONLY, or UNKNOWN 

The file status indicates whether the specified file exists or must be 
created. The possible values are: 

NEW 
OLD 

READONLY 
UNKNOWN 

A file status of NEW indicates that a new file must be created with 
the specified attributes. NEW is the default value. 

Tf you specify OLD, the system tries to open an existing file. An 
error occurs if the file cannot be found. OLD is invalid for internal 
files, which are newly created each time the declaring program or 
subprogram is executed. 

A file status of READONLY indicates that an existing file is being 
opened only for reading. An error occurs if you try to write to a 
file that has been opened with READONLY. 

Tf you specify UNKNOWN, the system first tries to open an existing 
file. If an existing file cannot be found, a new file is created with 
the specified attributes. 

If you specify READONLY, the system generates an error if a REWRITE is 
performed on the file. READONLY implies OLD. 



7.7.2 Record Length 

The record length parameter specifies the record length used in the 
file. Any positive integer can be used. 



7.7.3 Record Access Mode — SEQUENTIAL or DIRECT 

The record access mode specifies the access to the components of the 
file. The modes are: 

DIRECT 
SEQUENTIAL 

In SEQUENTIAL mode, you can access files with fixed- or 
variable-length records. The default access mode is SEQUENTIAL. 

DIRECT mode allows you to use the FIND procedure to access files with 
fixed-length records. You cannot access a file with variable-length 
records in DIRECT mode. 
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7.7.4 Record Type — FIXED or VARIABLE 

The record type specifies the structure of the records in a file. The 
record types are: 

FIXED 
VARIABLE 

A value of FIXED indicates that all records in the file have the same 
length. A value of VAFIIABLE indicates that the records in the file 
can vary in length. FIXED is the default for non-TEXT files; 
VARIABLE is the default for TEXT files. 



7.7.5 Carriage Control — LIST, CARRIAGE, or NOCARRIAGE 

The carriage control option specifies the carriage control format for 
a text file. The options are: 

LIST 

CARRIAGE 

FORTRAN 

NOCARRIAGE 

NONE 

A value of LIST indicates single spacing between components. LIST is 
the default for all text files, including the predefined file OUTPUT. 

The CARRIAGE option indicates that the first character of every output 
line is a carriage control character. These characters and their 
effects are summarized in Table 7-4. 

FORTRAN is equivalent to CARRIAGE. 

NOCARRIAGE means that no carriage control applies to the file. In 
particular, WRITELN will not output an EOLN to a NOCARRIAGE file, and 
the PAGE procedure will cause a run-time error. 

NONE is equivalent to NOCARRIAGE. 
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Table 7-2 summarizes the file attributes. 



Table 7-2: Summary of File Attributes 



Parameter 



Possible Values 



Default 



File status 



Record length 

Record-access 
mode 

Record type 



Carriage control 



OLD, NEW, READONLY or 
UNKNOWN 

any positive integer 

DIRECT or SEQUENTIAL 

FIXED or VARIABLE 



LIST, CARRIAGE, 
FORTRAN, NOCARRIAGE, 
or NONE 



NEW 

133 
SEQUENTIAL 



VARIABLE for text 
files; FIXED for 
non-text files. 

LIST for all text 
files; NOCARRIAGE for 
all other files 



7.7.6 Examples 

Example 1 

^M"< User^uide i TEXT J 

BEGIN 

OPEN <User.^ijide) ? 



END? 

In this example, the OPEN procedure specifies only the file variable 
so no defaults for the file will be changed. This usage of OPEN 
essentially causes no action. 

Example 2 

BEGIN 

OPEN (Userduider f f 80) ; 



END? 

The OPEN statement sets the record length for USERGUIDE to 80 
characters . 

Example 3 

BEGIN 

OPEN < OUTPUT r>»,f» CARRIAGE)? 



ENDi 
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This example causes the system to interpret the first character of 
each line written to the predeclared file OUTPUT as a carriage control 
character. When you call OPEN for the predeclared file OUTPUT, you 
can specify only a carriage control option. If you include any other 
parameters, an error occurs. 

Example 4 

BEGIN 

c) I"' EH (A 1 b i..i IT. s 9 '- p s : <: J E. N N :i: i-- e;: r :> :t n u e n r ' ? o l.. n y f \\ i r e. c t > j 



END? 

The file variable albums will be associated with the file 
specification PS : <JENNIFER>INVENT. A RESET will initiate reading of 
the existing (OLD) file, or cause an error if the file does not exist. 
The file wil] be opened for direct access; that is you can use the 
FIND procedure vd th this file. A REWRITE will ignore the OLD 



parameter . 
Example 5 



BEGIN 

OPEN ( Solar y 'Er.er<^yJ'y NEWi- - y PIXED)? 



:nd 



Assuming that Energy is defined as a logical name, this statement 
causes a RESET or REWRITE to create a file with the specification 
designated by the logical name Energy. The identifier Solar is used 
within the program to refer to the TOPS-20 logical name. The file is 
created with fixed-length records. Default values are used for the 
record length and the record access parameters. 

Example 6 

BEGIN 

{.") F- r;: N < r- i l e .... N a in e J ■■■- ' F' 8 : <: S M I T Fl > F" LAN, 1.1 A T ' r R E C G R B .... T Y I"' E \=^- U A R I A B l. E y 
F" ;i. ]. e ™ V a r .i. a b 1 e J -= P .1 a n s ) v 



ENBy 

The file variable plans is associated with the file PLAN. DAT on PS: 
with a directory of <SMITH>. The file name and record type parameters 
use keywords. Because the file name keyword is used, each subsequent 
parameter must use a keyword. It is not necessary to indicate each 
unused parameter with a comma when keywords are used. 
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7.8 THE PAGE PROCEDURE 

The PAGE procedure skips to the next page of a text file. 
Fo rma t 

PAGE (file variable); 
where : 

file variable specifies a text file. 

Execution of the PAGE procedure causes the system to flush the 
contents of the record buffer, then skip to the next page of the 
specified text file. The next line written to the file begins on the 
first line of a new page. You can use this procedure only on text 
files. If you specify a file of any other type, PASCAL issues an 
error message. 

The value of the page eject record that is output to the file depends 
on the carriage control format for that file. When CARRIAGE is 
enabled, the page eject record is equivalent to the carriage control 
character '1'. When LIST is enabled, the page eject record is a form 
feed character. When NOCARRIAGE is enabled, the PAGE procedure 
generates an error. 

Example 1 

Bt-GIN 

page;: (U^jer<^ui.de) ? 



end; 

This example causes a page eject record to be written in the text file 
Userguide . 

Example 2 

be: GIN 

F-AGt: (OUTPUT)? 



END? 

This example calls the PAGE procedure for the predeclared file OUTPUT. 
As a result of this procedure, a page eject record is output at the 
terminal (in interactive mode) or in the batch log file (in batch 
mode) . 
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7.9 THE PUT PROCEDURE 

The PUT procedure appends a new component to the end of a file. 

Forma t 

PUT (file variable); 

where : 

file variable specifies the file to which one or more 

components will be written. 

Before executing the PUT procedure, you must have executed the REWRITE 
procedure. REWRITE clears the file and sets EOF to TRUE, preparing 
the file for output. If EOF is FALSE, the PUT procedure fails; a 
run-time error occurs; and program execution is terminated. 

The PUT procedure writes the value of the file buffer variable at the 
end of the specified file. After execution of the PUT procedure, the 
value of the file buffer variable becomes undefined. EOF remains 
TRUE. 

Example 

f R C) G R A M B o o k f i 1 e (IN P IJ T y U T F' U T r B o o k s ) ? 

T Y P E S t T^ i r I ?iJ = •• P A C K ED A F< R A Y C 1 ♦ ♦ 4 ;] F' C I -I A R r 
Bookrec =- RECORD 

Author ** Birins^? 
Title i Btriri£{ 
END? 
k/iAR Newbook ♦ Bookrec? 

B o o k s ♦ F I L.. E F' Bookrec? 
N : INTEGER? 



BEG 


IN 






REWRITE 


(Books) ? 




FOR N I 


- 1 TO 10 DO BEGIN 




WITH 


Newbook DO BEGIN 
WRITE CTitleJ')? 
READ (Title)? 
WRITE ('Author:') 
READ (Author)? 
END? 




Books" 


J = Newbook ? 




PUT (Books) 




END 





END, 

This program writes the first 10 records into the file Books. The 
records are input from the terminal to the record variable Newbook. 
They consist of two 40-character strings denoting a book's author and 
title. The FOR loop accepts 10 values for Newbook, assigning each new 
record to the file buffer variable Books'^. The PUT statement writes 
the value of Books" into the file for each of the 10 records input. 
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7.10 THE READ PROCEDURE 

The READ procedure reads one or more file components into a variable 
of the component type. 

Format 

READ ( [file variable,]] variable name [[, variable name... ]] ); 

where : 

file variable specifies the input file. If you omit the 

file variable, PASCAL uses INPUT by default. 

variable name specifies the variable into which the file 

component(s) are read. For a text file, many 

file components can be read into one 
variable . 

By definition, the READ procedure for a nontext file performs an 
assignment statement and a GET procedure for each variable name. 
Thus, the procedure call 

READ ("file variable, variable name); 

is equivalent to 

variable name := file variable"; 
GET (file variable) ; 

The READ procedure reads from the file until it has found a value for 
each variable in the list. The first value read is assigned to the 
first variable in the list; the second value is assigned to the 
second variable, and so on. The values and the variables must be of 
compatible types. 




Values from a text file can be read into variables of integer, real, 
character, string, and enumerated types. In the file, values to be 
read into integer and real variables must be separated by spaces or 
must be put on new lines. Values to be read into character variables, 
however, must not be separated because they are read literally, 
character-by-character. Constants of enumerated types must be 
separated by at least one space. Any other character that is invalid 
in an identifier terminates the constant. Only the first 31 
characters of the constant are significant; PASCAL ignores any 
remaining characters. 

You can use READ to read a sequence of characters from a text file 
into a string (that is, a variable of type PACKED ARRAY[l..n] OF CHAR). 
PASCAL assigns successive characters from the file to elements of the 
array, in order, until each element has been assigned a value. If any 
characters remain on the line after the array is full, the next READ 
begins with the next character on that line. If the end of the line 
is encountered before the array is full, the remaining elements are 
assigned spaces. 
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READ does not read past EOLN if it is reading into a string type. 
Instead, READ continues to return blanks until the EOLN is explicitly 
passed by using READLN. 

If you call READ when the file is positioned at the end of a line, the 
file position moves to the beginning of the next line, unless it is a 
string variable. Characters are then read into the specified starting 
variable. If this line is empty, the string is filled with spaces. 

Every text file ends with an end-of-line mark and an end-of-file mark. 
Therefore, the function EOF never becomes TRUE when you are reading 
strings with the READ procedure. To test EOF when reading strings, 
use the READLN procedure. 



xample 1 




BEGIN 




READ 


( J e in F 9 A <3 e r W e .i. ^ h» t ) ? 



END? 

Assume that Temp, Age, and Weight are real variables, and you type in 
the following values: 

98.6 :U.O 75.0 

The variable Temp takes on the value 98.6; Age takes on the value 
11.0; and Weight takes on the value 75.0. Note that you need not 
type all three values on the same line. 

Example 2 

TYPE Strir.jS --:: PACKED ARRAY EM ♦♦20.1 OF CHAR? 
VAR Names :' TEXT? 

F" Y' GSr ^eG'p t S t T^ i II <:i ? 

BEGIN 

READ ( Name?;, y Pres)- Veep)? 



END? 

This program fragment declares and reads the file Names, which 
contains the following characters: 

John F. Kennedy Lyndon B. Johnson Lyndon B. Johnson <EOLN> 

Hubert H. Humphrey <EOLN> 

Richard M. Nixon Kpiro T. Agnew <EOLN> 

The first call to the READ procedure sets Pres equal to the 
20-character string 'John F. Kennedy ' and Veep equal to 'Lyndon 
B. Johnson '. The second call to the procedure assigns 'Lyndon B. 
Johnson ' to Pres and spaces to Veep. Unless READLN is used to read 
past the EOLN, READ continues to assign spaces. 
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7.11 THE READLN PROCEDURE 

The READLN procedure reads lines of data from a text file. 

Fo rma t 

READLN [[ ( [[file variable,]] variable name [[, variable name...]] ) ]| ; 

where : 

file variable specifies the name of the text file to be 

read. If you do not specify a file variable, 
PASCAL uses INPUT by default. 

variable name specifies the variable into which a value 

will be read. If you do not specify any 
variable names, READLN skips a line in the 
speci f ied file. 

The READLN procedure reads values from a text file. After reading 
values for all the listed variables, the READLN procedure skips over 
any characters remaining on the current line and positions the file at 
the beginning of the next line. All the values need not be on a 
single line; READLN continues until values have been assigned to all 
the specified variables, even if this process results in the reading 
of several lines of the input file. READLN performs the following 
sequence : 

READ (file variable, variable name...); 
READLN (file variable); 

EOLN(file variable) is TRUE only if the new line is empty. 

You can use the READLN procedure to read integers, real numbers, 
characters, strings, and constants of enumerated types. The values in 
the file must be separated as they are for the READ procedure. 

The READLN statement automatically pads strings. Thus, it is not 

necessary to pad strings with spaces to match the variable size if you 

are using the predefined file INPUT or reading from a file defined as 
TEXT. 

If EOLNO is TRUE when you call READLN, the first value read is the 
first value in the next line, unless you are reading a character. If 
you are reading a character, the first value read is a space. 

Example 



TYPE Strirri^ ■■■■=^ PACKED ARRAY ri,,20J OF CHARi 
VAR Names I TEXT? 

Pres)* Veep J Strin*^; 



WHILE NOT EOF (Names) DO? 
BEGIN 
READLN (NameS)' Presi- Ueep)? 



ENDi 
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This program fragment declares and reads 
contains the following characters: 



the file Names, which 



John F. Kennedy Lyndon B. Johnson Lyndon B. Johnson 

Hubert H. Humphrey <EOLN> 

Richard M. Nixon Spiro T. Agnew <EOLN> 

<EOLN> 

<EOF> 



<EOLN> 




7.12 THE RESET PROCEDURE 

The RESET procedure readies a file for reading by setting the file 
pointer to the first component in the input file. 

Format 

RESET (file variable); 

where: 



file variable 



specifies the file to be read. 



If the file is not already open, RESET opens it using the defaults 
listed in Table 7-1 and Table 7-2. To open a file that does not use 
default values, use the OPEN statement. 

After execution of RESET, the file is positioned at the first 
component; and the file buffer variable contains the value of this 
component. The arrow in Figure 7-2 shows the file position after 
RESET. If the file is empty, EOF is TRUE; otherwise, EOF is FALSE. 
If the file does not exist, RESET returns an error at run time; RESET 
does not create the file. 



Beginning 
of File 



• • • 



EOF 



MR-S-31 16-83 



Figure 7-2: File Position after RESET 
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You must call RESET before reading any file except the predeclared 
file INPUT. If you call RESET for the predeclared file INPUT or 
OUTPUT, a run-time error occurs. 

Examples 

Example 1 

BEGIN 

C) F-- E N ( F h o I", e s r " F- h o n e s . D a t ' ? r D I R E £ T ) r 
RESET (Phones) 5 



END? 



These statements open the file variable Phones for direct 
input. After execution of the OPEN and RESET procedures, 
the FIND procedure for direct access to the components o: 
Phones . 



access on 

you can use 

of the file 

Phones 



Example 2 



BEGIN 

Fi;ESET (Weights)? 



END? 



If the file variable Weights is already open, this statement enables 
reading and sets Weights" to the first file component. If the file is 
not open, this statement causes the system to search for the file 
designated by the logical name Weights: If no such logical name is 
assigned, the system searches for the file WEIGHTS.DAT on the user's 
default device and directory. If the file exists it is opened for 
sequential read access. If the file does not exist, a run-time error 
occurs . 



7.13 THE REWRITE PROCEDURE 

The REWRITE procedure readies a file for output by setting the file 
pointer to the first component of the output file. 

Fo rma t 

REWRITE (file variable); 
where: 

file variable specifies the file to be enabled for output. 

If the file does not exist, REWRITE creates and opens it using the 
defaults listed in Table 7-1 and Table 7-2. If the file exists, 
REWRITE supersedes it using the defaults listed in Table 7-1 and Table 
7-2. To open a file that does not use default values, use the OPEN 
statement. 
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You must call REWRITE before writing any file except the predeclared 
file OUTPUT. If you call REWRITE for the predeclared file INPUT or 
OUTPUT, a run-time error occurs. 

The REWRITE procedure sets the file to length zero and sets EOF to 
TRUE. You can then write new components into the file with the PUT, 
WRITE, or WRITELN procedure (WRITELN is defined only for text files). 
After the file is open, successive calls to REWRITE close and 
supersede the existing file; that is, they create new versions of the 
file. 

To update an existing file, you must copy its contents to another 
file, specifying new values for the components that you need to 
update . 

Exampl e 1 

BEGIN 

F^E WRITE (Storms) 9 



END? 

If the file variable Storms is already open, this statement enables 
writing and sets the file position to the beginning of the file. If 
Storms is not open, a new version is created with the same defaults as 
for the OPEN procedure. 

Example 2 

BEGIN 

OF-'EN <F<esultsy ' PS J <CFIEN>ISSUES ♦ DAT ' s-GLDy y FIXED) y 

F<EWRITE (Results); 
END? 

The OPEN procedure sets defaults for the file variable Results, which 
is associated with the file ISSUES.DAT in directory PS:<CHEN>. The 
REWRITE procedure discards the current contents of the file Results 
and sets the file position at the beginning of the file. After 
execution of this statement, EOF(Results) is TRUE. 



7.14 THE WRITE PROCEDURE 

The WRITE procedure writes data into a file. 
Forma t 

WRITE ( I file variable, ]] print list ); 
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where : 

file variable specifies the file to be written. If you 

omit the file variable, PASCAL uses OUTPUT by 
def aul t . 

print list specifies the values to be output, separated 

by commas. The print list can contain 
constants, variables, and expressions. For 
nontext files, the items in the print list 
must be compatible with the file component 
type. 

By definition, the WRITE procedure for a nontext file performs an 
assignment statement and a PUT procedure for each variable name. 
Thus, the following procedure calls are equivalent: 

1. WRITE (file variable, variable name) ; 

2. file variable" := variable name; 
PUT (file variable) 



For text files, 
list to a seqijciiv, 
assignment and PUT p 
written in the file. 



the WRITE procedure converts each item in the print 
uence of characters. The WRITE procedure repeats the 
UT process until all the items in the list have been 
ile. 



The print list can specify constants, variable names, array elements, 
and record fields, with values of any scalar type. Each value is 
output with a minimum field width, as specified in Table 7-3. 

Table 7-3: Default Values for Field Width 

Type of Variable Number of Characters Printed 

Integer 12 

Real 16 

Double 2 4 

Boolean 16 

Character 1 

Enumerated 31 

String Length of string 

You can override these defaults for a particular value by specifying a 

field width in the print list. The field width specifies the minimum 

number of characters to be output for the value. The following is the 
format of the field-width specification: 

variable name : minimum : fraction 

Both minimum and fraction represent positive integer expressions. The 
minimum indicates the minimum number of characters to be output for 
the value. The fraction, which is permitted only for real numbers, 
indicates the number of digits to the right of the decimal point. 
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The following ruleis apply to designating field-width parameters in 
output procedures: 

1. Tf a real value does not have the function parameter, PASCAL 
prints the value in floating-point format. 

2. If the print field is wider than necessary, PASCAL prints the 
value with the appropriate number of leading blanks. 

3. If the print field is too narrow, PASCAL treats the different 
kinds of write parameters as follows: 

• Strings and nonnumeric scalar values are truncated on the 
right to the specified field width. 

• Integers and real numbers in decimal format are printed 
using the full number of characters needed for the value, 
thus overriding the field-width specification. 

• Real and double values in floating-point format are 
printed in a field of at least eight characters (for 
example, -l.OE+00). All real values in either format are 
printed with a leading blank if they are positive and a 
leading minus sign if they are negative. 

By default, PASCAL prints real numbers in floating-point format. Each 
real number is preceded by at least one blank, for example: 

WRITE ( Shoes ise)? 

If the value of Shoesize is 12.5, this statement produces the 
following output: 

1,25000000E+01 

To print the value in decimal format, you must specify a field width 
as in this example: 

WRITE (Shoesize:5:i)» 

The first integer indicates that a minimum of five characters will be 
output. The minimum includes the leading blank, the sign (if any), 
and the decimal point. The second integer specifies one digit to the 
right of the decimal point. This statement results in the following 
output : 



If the print field is wider than necessary, PASCAL prints the value 
with leading blanks. 

If you try to print a nonnumeric value in a field that is too narrow, 
PASCAL truncates the value on the right to fit into the field. For 
integers, however,, it prints the entire value without truncation. 
PASCAL widens the field to eight characters for real and 
double-precision numbers in exponential notation. It does not 
truncate real and double-precision numbers in decimal notation. 
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For a variable of an enumerated type, PAvSCAL prints the constant 
identifier denoting the variable's value. Because PASCAL ignores any 
characters beyond the thirty-first in an identifier, only the first 31 
characters of a long identifier appear, for example: 

\}f^R Color ; (Bluey Yellow)'BlackrSli<=5htlw_..Pale...l"'e3ch„..SuiTiiTier..-Si..inset ) ? 
BEGIN 

WFv'TTE ('My favorite color is ' r Color : 35 ) » 



Em.\y 

When the value of Color is Yellow, the following is printed: 

My favorite color is YELLOW 

When the value of Color is Si igh tly_Pa le_Peach_Summer_Sunset , however, 
the following appears: 

My favorite color is SLIGHTLY...PALE._PEACH„SUMMER_-SUNS 

Although the field width specified is wide enough for all 33 
characters in the identifier, PASCAL ignores the last two characters 
and prints two leading blanks. Note that constants of enumerated 
types are printed in all uppercase characters. 

If you open the predeclared file OUTPUT with the carriage control 
option LIST, PASCAL allows you to use the WRITE procedure to prompt 
for input at the terminal. Each time you read from INPUT, the system 
checks for any output in the terminal record buffer. If the buffer 
contains any characters, the system prints them at the terminal, but 
suppresses the carriage return at the end of the line. The output 
text appears as a prompt, and you can type your input on the same 
line, for example: 

WRITE < 'NaiTie three presidents J ') » 
Fv'EAD (Preslr Pres2y Pres3)f 

When PASCAL executes the READ procedure, it finds the output string 
waiting to be printed. PASCAL prints the prompt at the terminal, 
leaving the carriage just after the colon (:). You can then begin 
typing input on the same line as the prompt. 

Prompting works only for the predeclared files INPUT and OUTPUT. For 
any other files, no output is written until you fill the record buffer 
or start a new line. 

Example 1 

TYPE String = PACKED ARRAY CI ♦♦203 OF CHAR? 
VAR Names : FILE OF Strinia; 

Pres ♦ Stringy 
BEGIN 

WRITE (Namesj' 'Millard Fillmore ' r Pres)? 



ENDi 
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This example writes two components in the file Names. The first is 
the 20-character string constant 'Millard FiDlmore '. The second 
is the string variable Pres. 

Exampl e 2 

BEGIN 

W R 1 J E < N u in It^lly ' a r-i d ' y N u in 2 J 5 M y ' s u in t o ' s- ( N u m .1. + N u in 2 ) J 6 : .1. ) 5 



END? 

If you specify an expression, PASCAL prints its value. For example, 
if Numl equals 7 1 „ 1 and Num2 equals 29.9, this statement prints: 

71.1 a n d 2 9 » 9 s um to 1 J. ♦ 

Note that each of the real numbers is preceded by a space. 

Example 3 

KfM< Rain a in is : FILE OF- REAL? 

Avssrain y Max rain yM in rain t REAL? 
BEGIN 

WR I IE < Ra i nam is y A vsf ra i n y M i n ra i n y ♦ 3 1 2 y Max ra i n ) ? 



END? 

The file Rainamts contains real numbers indicating amounts of 
rainfall. The WRITE procedure writes the values of the variables 
Avgrain and Minrain into the file, followed by the real constant 0.312 
and the value of the variable Maxrain. 



7.15 THE WRITELN PROCEDURE 

The WRITELN procedure writes a line of data in a text file. 

Fo rma t 

WRITELN ( I file variable, ]] print list); 

where: 

file variable specifies the text file to be written. If 

you omit the file variable, PASCAL uses 
OUTPUT by default. 

print list specifies the values to be output, separated 

by commas. The print list can specify 
constants, variable names, array elements, 
and record fields, with values of any scalar 
type. Output of strings is also permitted. 
Each value is output with a minimum field 
width . 
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The WRITELN procedure writes the specified values into the text file, 
then starts a new line, for example: 

WRITELN ( User<i5i..iidey 'Thi<5 nfianual describes how you interact')? 

As a result of this statement, the system writes the string in the 
text file Userguide and skips to the next line. 

When you open a text file, you can specify the CARRIAGE option for 
carriage-control format. If you select CARRIAGE format, the first 
character of each output line is treated as a carriage-control 
character when output is directed to carriage-control devices such as 
the terminal and the line printer. If output is not directed to a 
carriage-control device, the carriage-control character is written 
into the file and will be read when you open the file for input. 
Table 7-4 summarizes the carriage-control characters and their 
effects . 

For carriage-control purposes, any characters other than those listed 
in the table are ignored. 

The carriage-control character must be the first item in the WRITELN 
print list. For example, if the text file Tree is open with the 
CARRIAGE option, you can use the following statement: 

ViR 1 TELN ( T ree r ' ' • S t r^ i nsil y S t r i ri<.^2 ) ? 

The first item in the print list is a space character. The space 
indicates that the values of Stringl and String2 are printed beginning 
on a new line when the file is output to a terminal, line printer, or 
similar carriage-control device. 

Table 7-4: Carriage-Control Characters 

Character Meaning 

'+' Overprinting: starts output at the beginning of the 

current line 

space Single spacing: starts output at the beginning of 
the next 1 ine 

'0' Double spacing: skips a line before starting output 

1' Paging: starts output at the top of a new page 

If you specify CARRIAGE but use an invalid car r iage-contro] character, 
the first character in the line is ignored. The output appears with 
the first character truncated. 
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Example 1 



BEGIN 

WI-n:TELN <C:i.assC::l. :] t2y ' is the 'Arade for this student*')? 



END ? 

This example writes an element of the character array Class to the 
file OUTPUT. The value is written with a minimum field width of 2. 



Example 2 



BEGIN 

WRITELNr 



END? 



If you specify WRITELN without a file variable or print list, PASCAL 
ends the printing of the current line on the standard output device 
(usually the terminal) . 

Example 3 

TYF'E 8triri<:^ I PACKED Af<RAY Ll..AOJi OF CHAFs*? 
VAR Newhires : TEXT? 

N : integer: 

Newrec : RECORD 

ID : INTEGER? 
Name ♦ String? 
Address J String? 
Salary ♦ Strind 
END? 
BEGIN 

OPEN (Newhires^ CARRIAGE)? 
WITH New re c DO BEGIN 

WRITELN (Newhires^ 'INew hire *'yIDr'IS 'rName)? 

WRITELN (Newhires J- ' '» Namer '* Lives atJ')? 

WRITELN (Newhires)? 

WRITELN (Newhires, ' 'y Address) 

END? 



END? 

This example writes four lines in the text file Newhires. The output 
starts at the top of a new page, and fits the following format: 

New hire ♦ 73 is IrvinsJ Washington 
Irvin:^ Washington lives at* 

22 Chestnut Str Seattle!* Wash. 
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7.16 TERMINAL I/O 

The PASCAL language requires that the file buffer always contain the 
next file component that will be processed by the program. This 
requirement can cause problems when the input to the program depends 
on the output most recently generated. To alleviate such problems in 
the processing of the predeclared text files INPUT and OUTPUT, PASCAL 
uses a technique called delayed device access, also know as lazy 
lookahead . 

As a result of delayed device access, an item of data is not retrieved 
from a physical file device and inserted in the file buffer until the 
program is ready to process it. The file buffer is filled when the 
program makes the next reference to the file. A reference to the file 
consists of any use of the file buffer variable, including its 
implicit use in the GET, READ, and READLN procedures, or any test for 
the status of the file, namely, the EOF and EOLN functions. 

The RESET procedure initiates the process of delayed device access. 
RESET is done automatically on the predeclared file INPUT. RESET 
expects to fill the file buffer with the first component of the file. 
However, because of delayed device access, an item of data is not 
supplied from the input device to fill the file buffer until the next 
reference to the file. 

When writing a program for which the input will be supplied by the 
predeclared text file INPUT, you should be aware that delayed device 
access occurs. Because RESET initiates delated device access, and 
because EOF and EOLN cause the buffer to be filled, you should place 
the first prompt for input before any tests for EOF or EOLN. The 
information you enter in response to the prompt supplies the data that 
is retained by the file device until you make another reference to the 
input file. 

Example 

VAR 

I : INTE(3ERJ 



BEGIN 

WRITE ("Enter an integer or sn empty line* ')? 

WHILE NOT EOLN DO 

BEGIN 

READLN ( I ) ? 

WRITELN ('The integer W3st ' r i:i)r 

WRITE ('Enter sn integer or sn empty line* ' ) ? 

END? 
WRITELN ('Done') J 
END. 
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The first reference to the file INPUT is the EOLN test in the WHILE 
statement. When the test is perfo rrti,ed , the system attempts to read a 
line of input from the text file. Therefore, it is very important to 
prompt for the integer or empty line before testing for EOLN. 

Suppose you respond to the first prompt by supplying an integer as 
input. Access to the input device is delayed until the EOLN function 
makes the first reference to the file INPUT. The EOLN function causes 
a line of text to be read into the internal line buffer. The 
subsequent READLN procedure reads the input value from the line of 
text and assigns it to the variable I. The WRITELN procedure writes 
the input value to the text file OUTPUT. The final statement in the 
WHILE loop is the request for another input value. The loop 
terminates when the EOLN detects the end-of-line marker. 
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CHAPTER 8 
USING PASCAL ON T0PS-2n 



This chapter describes how you use PASCAL with the TOPS-20 operating 
system. The steps in the program development process include: 

• Creating the source program 

• Compiling the program 

• Loading the program 

• Executing the program 

This chapter describes the standard TOPS-20 file specifications and 
defaults, and contains instructions for creating, compiling, loading, 
and executing a PASCAL program. 



8.1 PROGRAM DEVELOPMENT PROCESS 

The TOPS-20 operating system provides a variety of methods to produce 
an executable program. 

The first step is to create a program using an editor. This is 
described in Section 8.3. 

The second step is to compile the program using the PASCAL command. 
This is described in Section 8.4. 

The third step is to load the program into memory using either the 
LOAD command or the LINK program. The LOAD command is described in 
Section 8.5. For more information about LINK, refer to the LINK 
Reference Manual,, 

At this point you can use the START or the SAVE command. START runs 
the program that is currently loaded in memory. SAVE creates an 
executable image,, an EXE file, and stores it in your disk area. If 
you use the SAVE command, you can then use the RUN command to execute 
the program now or at a later date. 

If you do not SAVE the EXE file, you must load the file into memory 
before you can run it. 

To save time, you can use the EXECUTE command. (See Section 8.6.) 
With EXECUTE, you can compile, load, and start a program all at once. 
EXECUTE does not create an EXE file. 
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8.2 FILE SPECIFICATIONS AND DEFAULTS 

A file specification indicates the input file to be processed or the 
output file to be produced. File specifications have the following 
form: 

device:<directory> filename. fi] etype .gen 

The punctuation marks (colons, angle brackets, and periods) are 
required syntax that separate the various components of the file 
specification. 



device 



identifies the device or file structure on which the file is 
stored or is to be written. 



d i rectory 



identifies the name of the directory under which the file is 
catalogued, on the device specified. You can delimit the 
directory name with angle brackets, as shown above. 

f ilename 

identifies the file by its name. The source file name can be up 
to 39 alphanumeric characters. REL file names can be up to six 
characters . 

f i letype 

describes the kind of data in the file. The source file type can 
be up to 39 alphanumeric characters. REL file types can be up to 
three characters. 

gen 

specifies the generation of the TOPS-20 file desired. 
Generations are identified by a decimal number, which is 
incremented by 1 each time a new generation of a file is created. 
A period is used to separate file type and generation. 

You need not explicitly state all elements of a file specification 

each time you compile, load, or execute a program. Only the file name 

is required, as long as you use the default file type. Table 8-1 
summarizes the default values. 
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Table 8-1: File Specification Defaults 



Optional Default Value 
Element 



device User's current default device (DSK:) 

directory User's current default directory 

file type Depends on usage: 

Input to PASCAL compiler - PAS 

Output from PASCAL compiler - REL 

Input to LINK - REL 

Output from SAVE command - EXE 

Input to RUN command - EXE 

Compiler source listing - LST 

LINK map listing - MAP 

Input to executing program - DAT 

Output from executing program - DAT 

gen Input: highest existing generation 

Output: highest existing generation plus 1 

When compiling a PASCAL program, you need specify only the file name 
i f the file is : 

• Stored on the default device 

• Catalogued under the default directory name 

• A file type of PAS 

If more than one file meets these conditions, the compiler chooses the 
one with the highest generation number. 

For example, assume that your default device is PS:; your default 
directory is <CHEN>; and you supply the following file specification 
to the compiler: 

ePASCAL 
PASCAL>CIRCL.E 

The compiler searches device PS: in directory <CHEN>, seeking the 
highest generation of CIRCLE. PAS. The compiler then generates the 
file CIRCLE. REL, stores it on device PS: in directory <CHEN> , and 
assigns it a generation number that is one higher than any other 
generation of CIRCLE. REL currently in PS:<CHEN>. 



8.3 CREATING A PROGRAM 

The first step in creating a program is to design and plan it. The 
TOPS-20 PASCAL Primer describes the use of PASCAL for the novice 
PASCAL programmer who is already familiar with higher-level 
programming language concepts. Many books exist that describe 
programming techniques, methods, and algorithms. 
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After planning the program, you use an editor to create a file that 

contains the source statements. You use a text editor to create a 

source file. You can use EDIT, TV, or any other text editor to create 
the source file. 

For example, to create a PASCAL program that has the file name EXAMPL 
and a file type of PAS, you can issue the EDIT command as follows: 

(3EDIT EXAMPl. .r-AS GlD 
Input: E:XAMPI... »F-"AS 
00:100 

If this is a new file, an additional message is displayed indicating 
that a new file is being created. Because the EDIT command does not 
assume a file type, you must include the file type as part of the file 
name. The EDIT command runs the TOPS-20 default editor EDIT. The 
line number (00100) prompt indicates that EDIT is ready to accept 
input. For information on how to use EDIT, see the TOPS-20 EDIT 
User ' s Guide . 

You can also use any other editor to which you have access, for 
example, the TV editor. To use TV, you can either type TV to TOPS-20, 
or you can define the logical name EDITOR: to be SYS:TV.EXE. For 
more information about the use of TV, refer to the TOP S -20 TV Editor 
Manual . 

After the program is created and edited, it is ready to be compiled. 



8.4 COMPILING A PROGRAM 

After creating a PASCAL source program, you compile it. At compile 
time, you specify the source file(s) and indicate any qualifiers you 
wish to use. 

Optionally, the compiler produces one or more object files, which are 
input to LINK, and one or more listing files. The listing files 
contain source-code listings, information about compilation errors, 
and optional items such as cross-reference listings. 



8.4.1 The PASCAL Command 

To compile a source program, specify the PASCAL command and press the 
RETURN key. TOPS-20 then returns the PASCAL prompt, at which point 
you specify the file name and any switches. 



^pascalG^lD 

PASCAL>source-f ilename [[/swi tch (es) ]] CIllD 
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where 



source- filen am e 



/swi tch ( es) 



specifies the source file(s) containing the 
program or module to be compiled. If you 
have one program split into several source 
files, you can specify these source files at 
the same time by separating the file names 
with a plus sign (+). If you specify more 
than one source file, the files are 
concatenated and compiled as one program. 



indicates special processing to be 
by the compiler. 



per fo rmed 



In many cases, the simplest form of the PASCAL command is sufficient 
for compilation. For other situations, however, PASCAL provides 
compiler commands and switches to specify special processing. PASCAL 
compiler commands give special instructions to the compiler. PASCAL 
compiler switches modify the compilation of the program. 



Section 8.4.2 describes the PASCAL compiler commands, 
8.4.3 and 8.4.4 describe the PASCAL compiler switches. 



and Sections 



8.4.2 PASCAL Compiler Commands 

Table 8-2 lists the commands to the compiler 

Table 8-2: PASCAL Compiler Commands 



Command 



Purpose 



/EXIT 
/HELP 
/RUN: 
/TAKE: 



Exits from the PASCAL compiler 

Displays a help message 

Begins execution of the specified program 

Takes commands from the specified command file 



/EXIT 

The /EXIT command exits you from the compiler and closes all files 
that were opened by the compiler. 

/HELP 

The /HELP command displays a help message. 

/RUN : f ilespec 

The /RUN: command exits you from the compiler and begins execution of 
the specified pirogram. Using the /RUN: command is the same as 
specifying the /EXIT command to the compiler and then using the 
operating system command RUN to execute the specified program. 
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/TAKE 

The /TAKE command takes commands from the specified command file. The 
/TAKE command recognizes the default file type CMD. 

Example 1 

(?F'ASCAL 

i"-agcal>/take; F'Lan 

PASCAL.::: 

Assume that the command file PLAN. CMD contains the following: 

PLAN.F'AS /NOFLAG-NON -STANDARD /LISTING QiD 

The /TAKE: command causes the contents of PLAN. CMD to be executed. 
In this example, the source tile PLAN. PAS is compiled; display of 
warning messages for nonstandard features is suppressed; and a 
listing file is generated. Make sure the command file ends with a 
carriage- return/1 ine-feed . After execution of the command file, you 
can give another command to the compiler. 

Example 2 

pascal>sorter»pas 
pascal>/run; link 

The compiler compiles the source file SORTER. PAS, and the /RUN: 
command is then used to run the LINK program. The /RUN: command 
exits you from the compiler and causes the LINK program to begin 
executing. The asterisk (*) is the prompt displayed by LINK. 

Example 3 

PPASCAL 

pascal>auer.pas 
pascal>/exit 

& 

The EXIT command exits you from the compiler and puts you at TOPS-20 
command level. 



8,4.3 PASCAL Compiler Switches 

Table 8-3 lists the switches you can use with the PASCAL compiler. 
You can specify the switches following the file name or in source code 
comments. This section describes the effect of each switch on a 
PASCAL program. 
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Table 8-3: PASCAL Compiler Switches 



Switch 



Purpose 



In Default 
Source 



/ABORT 



/BINARY r [: f ilespec] ] 



/CHECK 



/CREF or 
/CROSS-REFERENCl 

/DEBUG 



/ERROR-LIMITrn 



/FLAG-NON-STANDARD 



/LISTING [ [: f ilespec] ] 



/MACHINE-CODE 



/NATIONAL 



Causes the compiler to 
exist at the end of a 
compilation that contains 
errors 

Produces a binary object 
file. 

Generates code to check 
for various error 
conditions 



No 



No 



Yes 



Stops compilation after 
the specified number of 
errors 

Issues warning messages 
for nonstandard features 



No 



Yes 



Off 



On 



On 



Produces a cross-reference Yes Off 
listing of identifiers 

Produces information in No Off 
the object file to be used 
with PASDDT 



30 



On 



Produces a source listing Yes Off 
during compilation 

Lists generated assembly Yes Off 
language in source listing 

Turns off braces as Yes Off 
comment characters 



/WARNINGS 



Prints diagnostics for 
warning-level errors 



Yes 



On 



/ABORT 

The /ABORT switch causes the compiler to exit at the end of a 
compilation that contains errors. This is useful when used with the 
/TAKE: command. The default is /NOABORT. 

/BINARY 1 :f ilespecU 

The /BINARY switch can be used when you want to specify the name of 
the object file. The /BINARY switch has the form: 

/BINARY I : f ilespecB 
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If you omit the file specification, the object file defaults to the 
name of the last source file, the default directory, and a file type 
of REL. You cannot specify this switch in the source code. 

You can disable this switch to suppress object code, for example, when 
you want to test only the source program for compilation errors. 

The default is /BINARY. 

/CHECK 

The /CHECK switch directs the compiler to generate code to perform 
run-time checks. This code checks for illegal assignments to sets and 
subranges, out-of-range array indices and case labels, and references 
to NIL pointers. The system issues an error message and terminates 
execution if any of these conditions occur. 

When this switch is disabled, the compiler does not generate code for 
run-time checks. The default is /CHECK. 

/CROSS-REFERENCE or /CREF 



The /CROSS-REFERENCE switch produces a cross-reference listing of all 
identifiers. The compiler generates separate cross-references for 
each procedure and function. To get complete cross-reference listings 
for a program, the switch must be in effect for all modules of the 
program. This switch is ignored if no listing file is being 
generated . 

The default is /NOCROSS-REFERENCE . 

You can specify this switch in the source code. Note, however, that 
the cross-reference listing for a portion of a procedure or function 
may be incomplete. 

/DEBUG 



The /DEBUG switch specifies that the compiler is to generate 
information that can be used with run-time debugging. 

The default is /NODEBUG. 

/ERROR-LIMIT:n 



The /ERROR-LIMIT switch terminates compilation after the specified 

number of errors, excluding warning-level errors, have been detected. 

The default limit is 30 errors. If this switch is disabled, 

compilation continues through the entire unit. You cannot specify 
this switch in the source code. 

The default is /ERROR-LIMIT: 30 . 

Note that, after finding 20 errors (including warning messages) on any 
one source line, the compiler generates error 255, Too Many Errors On 
This Source Line. Compilation of the line continues, but no further 
error messages are printed for that line. 

/FLAG-NON-STANDARD 

The /FLAG-NON-STANDARD switch tells the compiler to print 
warning-level messages at each place where the program uses 
nonstandard PASCAL features. 
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Nonstandard PASCAL features are the extensions to the proposed ISO 
standard for the PASCAL language that are incorporated in PASCAL-20. 
Nonstandard features include VALUE declarations and the exponentiation 
operator. Appendix D lists all the extensions. 

By default, /FLAG-NON-STANDARD is enabled. 

/LISTING 

The /LISTING switch produces a source listing file. It has the form: 

/LISTING [I: f i] especB 

You can include a file specification for the listing file. The 
default file specification designates the name of the first source 
file, your default directory, and a file type of LST. 

The compiler does not produce a listing file in interactive mode 
unless you specify the /LISTING switch. In batch mode, the compiler 
produces a listing file by default. In either case, the listing file 
is not automatically printed. 

/MACHINE-CODE 

The /MACHINE-CODE switch places in the listing file a representation 
of the object code generated by the compiler. 

The compiler ignores this switch if the /LISTING switch is not 
enabled . 

The default is /NOMACHINE-CODE . 

/NATIONAL 

The /NATIONAL switch causes the braces to have no special meaning. 
Therefore, if you specify the /NATIONAL switch, you cannot use braces 
as comment characters. Instead, you must use (* *) . 

The default is /NONATIONAL. 

/WARNINGS 

The /WARNINGS switch directs the compiler to generate diagnostic 
messages in response to warning- level errors. 

By default, /WARNINGS is enabled. A warning diagnostic message 
indicates that the compiler has detected acceptable but unorthodox 
syntax, or has performed some corrective action. In either case, 
unexpected results may occur. To suppress warning diagnostic 
messages, disable this switch. Note that messages generated when the 
/STANDARD switch is enabled appear even if /WARNINGS is disabled. 



8.4.4 Specifying Switches in the Source Code 

You can use switches in the source code to enable and disable special 
processing during compilation. When specified in the source code, 
switches have the form: 

(*$ switch + ,, switch + ,... ; comment *) 
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The first character after the comment delimiter must be a dollar sign 
($); the dollar sign cannot be preceded by a space. Table 8-4 lists 
the switches you can specify in your source program. Note that you 
can optionally use a 1-character abbreviation for each switch. The 
abbreviation is simply the first character of the switch name, except 
for CROSS-REFERENCE, which has X for an abbreviation. 



Table 8-4 



Source Switches 



Abbreviation 



Full 



Command- Line Switch 



CHECK 

LIST 

MACHINE-CODE 

NATIONAL 

STANDARD 

WARNINGS 

CROSS-REFERENCE 



CHECK 

LIST 

MACHINE-CODE 

NATIONAL 

FLAG-NON-STANDARD 

WARNINGS 

CREF 



To enable a switch, specify a plus sign (+) after its name or 

abbreviation. To disable a switch, specify a minus sign (-) after its 

name or abbreviation. You can specify any number of switches. You 

can also include a text comment after the switches, separated from the 
list of switches by a semicolon. 

When specified in the source code, the LIST switch cannot contain a 
file specification. The listing file has the default specification 
described above. 

For example, to generate check code for only one procedure in a 
program, enable the CHECK switch before the procedure declaration, and 
disable it at the end of the procedure, as follows: 

(**C+ f enable CHECK for TE-STl only *> 
PROCEDURE TESTi; 



END r 

<*$C~?dis3ble CHECK *) 

Command line switches override source-code switches. If, for example, 
the source code specifies NOWARNINGS, but you type /WARN on the 
command line, warning messages will be generated. 



NOTE 

When specifying the NATIONAL switch in 
the source code, always use the 
parentheses/asterisks combination (* *) 
and not braces { } . 
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8.4.5 Specifying Output Files 

The PASCAL compiler can produce object files and listing files, as 

well as compile the source code. You can control the production of 

these files with the addition of various file names and switches on 
the PASCAL command Dine. 

PASCAL produces an object file automatically, taking the name from the 
source file and assigning it the file type REL. To change the name of 
the object file, specify the /BINARY switch with a file name. 

To produce a listing file, you must specify the /LISTING switch on the 
PASCAL command line. You have the option of giving a file name with 
the /LISTING switch or taking the default, which is the name of the 
source file and the file type LST. Note, however, if you run PASCAL 
from a batch control file, you automatically receive a listing file. 
In this case, to suppress the creation of a listing file, specify the 
/NOLISTING switch in the batch control file. 

During the early stages of program development, it is often useful to 
suppress the production of object files until your source program 
compiles without error. To suppress the production of an object file, 
specify the /NOBTNARY switch along with the source file. 

You can specify more than one source file at a time, to be 
concatenated and compiled. When specifying multiple source files, 
separate each one with a plus sign (+) . Although you may specify more 
than one source file, you still receive one object file to load for 
execution. By default, the object file produced from concatenated 
source files has the name of the last source file on the command line. 
All other file specification attributes (device, directory, and so 
forth) assume the default attributes. 

Example 1 

(3PASCAL 
PASCAL>XXXfYYY+ZZZ 

Source files XXX. PAS, YYY.PAS, and ZZZ.PAS are concatenated and 
compiled as one file, producing an object file named ZZZ.REL. In 
batch mode, this command also produces the listing file ZZZ.LST. 

Example 2 

ePASCAL 

PASCALXS ♦ GRAlviES^MNP/LISTING 

The source file MNP. PAS in directory <S.GRAVES> is compiled, producing 
an object file named MNP. REL and a listing file named, MNP. LST. The 
compiler places the object and listing files in the default directory. 



8.4.6 Compiler Listing Format 

When you request a listing file (by specifying the /LIST switch, 
PASCAL produces a compiler listing. This section explains the format 
of the compiler listing illustrated in Figure 8-1. 
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AVERAGE SCORE 






o 


17-Au< 


SOURCE LISTING CBL2C 


:<MASELLA>AVER. 


LINE 




ADDRESS 


PROG 


LEVEL 


NUMBERS 


DATA INST 


NO 


PROC STMT 


100 


1 


000041 





1 





% PAS456 


Nonstandard Pascal 


: -$- 


OR " 


200 


2 


000215 





1 





300 


3 


000215 


©s 


Qi 


©0 


^400 A 4 


000220 


^1 


^500 ' 


^ 5 


000221 





1 





600 


6 


A 400000 
400012 





1 





700 


7 





1 


1 


800 


8 


400033 





1 


1 


900 


9 


400034 





1 


1 


1000 


10 


400052 





1 


1 


1100 


11 


400061 





1 


1 


1200 


12 


400061 





1 


2 


1300 


13 


400076 





1 


2 


1400 


14 


400101 





1 


2 


1500 


15 


400104 





1 


2 


1600 


16 


400105 





1 


1 


1700 


17 


400113 





1 


1 


1800 


18 


400142 





1 


1 


1800 


19 


400172 





1 






e 

11; 



23:32 



PASCAL-20 1(611) 



Page 



(1) 



STATEMENT. 

PROGRAM Averaqe_Score (INPUT , OUTPUT) ; 

Q " 4 5 6- — 
in identifier in AVERAGE_SCORE O 
VAR 

Score, Total, Count : INTEGER; 

AverageScore : REAL; 

BEGIN 

Total := 0; 
Count := 0; 

WRITELN ('Enter your scores. When 
WHILE NOT EOF PO 
BEGIN 

READLN (SCORE) ; 
Total ;= Scorp + Total; 
Count := Count + 1; 
End; 
AverageScore :- Total / Count; (*to produce 
WRITELN ('The average score is: ', AverageSc 
END. 



1 Nonstandard feature 
Last error (warning) on line 



o 



1 ===> 

o 





o 



done , type CTRL/Z . ' ) ; 



real resi. 
ore : 4 : 1 ) ; 



Active options at end of compilation: 

NODEBUG, STANDARD, LI ST, CHECK, WARN INGS,CROSS_REFERENCE, O 

MACHINE_CODE, OBJECT, ERROR_LIMIT = 30 

Compilation time: 1.51 seconds (755 lines per minute). 



C 
J) 

M 

z; 

a 

> 

CO 

o 
> 

f 

o 

o 

CO 



AVERAGE_SCORE 
GENERATED CODE 



17-Aug-1983 
CBL20:<MASELLA> AVER. PAS 
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(1 



LINE 



INSTRUCTION 



ADDRESS 



07 255 00 00 000000 400012 

265 16 00 000000* 400013 

202 17 00 000002' 400014 

0400 16 00 000000 0400015 

201 05 00 000041' 400016 

261 17 00 000005 400017 

260 17 00 000000* 400020 

105 17 00 777777 400021 

200 00 00 000017 400022 

201 05 00 000041 ' 400023 



OPCODE 


OPERAND (S) 


JFCL 


on 


JSP 


AC16,00 PASLD% 


MOVEM 


AC17,0 2 


©SETZ 


0AC16, 


MOVE I 


ACn5, 000041 


PUSH 


AC17,n5 


PUSHJ 


AC17,00 INP%IN 


ADJSP 


AC17, 777777 


MOVE 


AC00,1'7 


MOVE I 


AC05, 000041 



AVERAGE_SCORE 
CROSS REFERENCE 



17-Aug-1983 
CBL20:<MASELLA> AVER. PAS 
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Page 



(i; 



AVERAGESCORE 

AVE RAG E_S CORE 

COUNT 

INPUT 

OUTPUT 

SCORE 

TOTAL 



o 



16 17 
8 14 14 16 



12 13 
7 13 13 16 



JDrtLiL. 1 UHiT . 



o 



AVERAGE SCORE 



o 



:ORE 


17-Aug-1983 


CODE CBL20; 


;<MASELLA>AVER.PAS 


INSTRUCTION 


ADDRESS 


523214520302 


400153 


733136260716 


400154 


625016361736 


400155 


713124064746 


400156 


351000000000 


400157© 


427356462744 


400160 


203635772744 


400161 


203474367744 


400162 


627465620256 


400163 


643135620310 


400164 


677354526100 


400165 


723636062500 


400166 


416512246136 


400167 


551340000000 


400170 


000000000000 


400171 
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(1) 



OPCODE OPERAND(S) 

CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



O 

en 
I 

o 



Figure 8-1: Compiler Listing Format 
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The compiler listing in Figure 8-1 contains the following three 
sections: 

• Source-code listing - When you request a listing file, the 
source code is listed by default. 

« Machine-code listing - To generate the machine-code listing, 
you must specify the /MACHINE-CODE switch, or the 
MACHINE-CODE + source switch. 

• Cross-reference listing - To generate cross-references for 
all identifiers used in the program, you must specify the 
/CREF switch. 

The numbers throughout this section are keyed to the numbers in Figure 
8-1. 

TITLE LINE - Each page of the listing contains a title line. The 
title line lists the module name ^ , the date and time of the 
compilation ^, the PASCAL compiler name and version number O' ^^^ 
listing page number ^r and the file specification of the source file 

o • 



8.4.6.1 Source-Code Listing - The lines of the source code are 
printed in the source-code listing. In addition, the listing contains 
the following information pertaining to the source code: 

• Editor line numbers O ~ If you created or edited the source 
file with an editor that automatically inserts line numbers, 
these line numbers appear in the leftmost column of the 
source-code listing. Editor line numbers are irrelevant to 
the PASCAL compiler. Note these are not the line numbers you 
specify to PASDDT for debugging purposes. 

• Line numbers ^ - The compiler assigns unique line numbers 
to the source lines in a PASCAL module. The symbolic 
traceback that is printed if your program encounters an 
exception at run time refers to these line numbers. Note 
these are the line numbers you use when working with PASDDT. 
Refer to Chapter 9 for information concerning the debugger. 

• Address O ~ The listing includes the octal address of the 
instruction on that line of source code. 

• Procedure number O ~ PASCAL numbers each procedure in the 
listing file as it progresses down the source code, starting 
with for the main program. 

• Procedure level ^ - Each line that contains a declaration 
lists th^ procedure level of that declaration. Procedure 
level 1 indicates declarations in the outermost block. The 
procedure- level number increases by one for each nesting 
level of functions or procedures. 
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• Statement level Q - The ]isting specifies a statement 
level for each line of source code after the first BEGIN 
delimiter. The statement level starts at and increases by 
1 for each nesting level of PASCAL structured statements. 
Specifically, the CASE statement, the REPEAT statement, and 
the BEGIN/END block increase the statement level. The 
statement level of a comment is the same as that of the 
statement that follows it. 

ERRORS and WARNINGS — The source-code listing includes information on 

any errors or warnings detected by the compiler. The actual message 

is printed beneath the error in the source code. In addition, the 
following items appear in the listing: 

• A circumflex (") that points to the character position in the 
line where the error was detected ^ . 

• A numeric code, following the circumflex, that specifies the 
particular error ^ . On the following lines of the source 
listing, the compiler prints the text that corresponds to 
each numeric code ^ . 

• The line number where the error was detected ^ and the 
line number of the previous line containing an error ^ . 
You can use these error line numbers to trace the error 
diagnostics back through the source listing. 

SUMMARY -- At the end of the source listing, the compiler tells you 
how many errors or warnings were generated (if any) , with the source 
line number where the last one occurred ^ . The compiler prints the 
status of all the compilation options ^ and how much time was 
required for the compilation ^ . 



8.4.6.2 Machine-Code Listing - The machine-code listing (if requested 
with the /MACHINE-CODE switch) follows the source-code listing. The 
machine-code listing contains: 

• Source line number ^ - A source line number marks the 
first object instruction that the compiler generated for the 
first PASCAL statement on that source line. 

• Octal representation of instruction ^ - This is the octal 
representation of the object instruction. 

• Address ^ - This is the relocatable address of the 
instruction. 

• Opcode ^ - This is the mnemonic operation code for the 
instruction. 

• Operand ^ - This contains the mnemonic accumulator field 
and address field for the operation. 

For more information on machine-code instructions, refer to the 
DECsystem-lO/DECSYSTEM-20 Processor Reference Manual . 
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8.4.6.3 Cross-Ref erence Listing - The cross-reference listing (if 
requested with the /CREF switch) appears after the machine-code 
listing. It contains two sections: 

• User-specified identifiers ^ - This section lists all the 
identifiers you declared. 

o Globally-defined identifiers ^ - This section lists the 
PASCAL predefined identifiers that the program uses. 

Each line of the cross-reference listing contains an identifier and a 



list of the source lines where the identifier is used ^ 
->.•-. . .-._ ^ -._.._ -. _, . ,_ _ i<3entifier is declared. 



^^ The first 

line number indicates where the identifier is declared. Predefined 

are listed as if they were declared on line ^ . The 

does not specify pointer type identifiers that 



identifiers 



tes where the 
^^^w^^,.^^.^ o. V V- listed as if \,..^ 
cross-reference listing does not s 
are used before they are declared. 



8.5 LOADING A PROGRAM 

After compiling your PASCAL program, you load the object module(s) 
with the LINK program to produce an executable image file. Loading 
resolves all references in the object code and establishes absolute 
addresses for symbolic locations. This section describes the use of 
the LOAD command. 



8.5.1 The LOAD Command 

To load an object module, specify the LOAD command in the following 
general form: 



LOAD filename ([/switch(es) . . . 



where 



filename specifies the input object file to be loaded. The 
file must be a REL file, created with the PASCAL 
compiler (or some other translator). 

/switch(es) specify input file options. 

The file specification must be typed on the same line as the LOAD 
command. If the file specification does not fit on one line, you can 
continue typing without pressing the RETURN key. 

The LOAD command runs the LINK program, which reads the REL file 
specified on the command line and loads it into memory. When LINK 
exits, it leaves your program in memory, ready to be SAVEd as an EXE 
file or to be STARTed . 

The LOAD command can do a COMPILE command before running LINK. If you 
specify a file name to the LOAD command for which there is a source 
file but no REL file, the LOAD command automatically performs a 
COMPILE command first. 

See the TOPS-20 Commands Reference Manual for more information on the 
LOAD command. 
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8.6 EXECUTING A PROGRAM 

After you have compiled and linked your program, you can execute the 
object file with the START command; or you can save the file with the 
SAVE command, and then execute it with the RUN command. 

You can save time by using the EXECUTE command. The EXECUTE command 
acts by performing a LOAD command (which may start with a COMPILE 
command) followed immediately by a START command. So, instead of 
performing several separate steps of running the compiler, compiling 
your program, loading your program, and starting your program, you can 
compile, load, and start your program v;ith a single command: 

(ar-XECUTE filename f^") 

Using the EXECUTE command does not save the executable image of the 
object file. The SAVE command stores a copy of the executable image 
in an executable file. The default file type that is created is EXE. 
After an executable image is saved, you can execute it with the RUN 
command. The SAVE and RUN commands have the form: 

(»SAV^E filename Q[D 
(aRUN filename ( ^'O 

You must specify the file name; default values are applied if you 
omit optional elements of the file specification. The default file 
type is EXE. 



8.7 EXAMPLES 

Example 1 

(sr-'ASCAL 

i-"' a s c a l„. :: s q r t e r /no f l a (3 / 1.. i s t 1 n g 

pascai...>/ex:i:t 

g?exe sorter 

This example uses the PASCAL command to compile the source file 
SORTER. The /NOFLAG switch prevents display of messages about 
nonstandard PASCAL statements in the program; the /LISTING switch 
generates a .LST file of the compilation in your disk area. 

Example 2 

(3F-ASCAL 

F=' A S C: A L :••■ M E R G E: R / D E B U G 

PASCAI,..>/EXIT 

(3L0AD MERGER/DEBUG 

(3DEBUG MERGER 

The PASCAL command is used to compile the program with the debugger, 
PASDDT. The DEBUG command is used to load the compiled program and 
the PASCAL debugger automatically. The DEBUG command executes the 
program with PASDDT. 
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Example 3 

PLOAD F-"LAN /COMPILE /CRLF 
i^PFaNT PLAN. LSI 
(? START 

The LOAD command first compiles the program because of the /COMPILE 
switch, then, if compilation is successful, loads the program. The 
/CREF switch generates a listing file with cross-reference 
information. The PRINT command prints the listing. The program is 
then executed with the START command. 
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CHAPTER 9 
PASDDT: THE PASCAL-20 DEBUGGER 



The PASCAL-20 debugger, PASDDT, provides the means to monitor and 
modify the execution of a PASCAL program. PASDDT provides symbolic 
debugging capabilities that allow you to read and modify the values 
associated with variables by referring to the PASCAL identifiers 



within your program. 



9.1 RUNNING PASDDT 

To use the debugger, you must compile and load PASDDT with the 
program. First, compile the source program and include the /DEBUG 
switch in the command string: 

fdPASCAL 

F-' A S C A l_ :> file ri a ni e / D E: B U (-1 

PASCAL>/EXIT 

& 

Then, load the program along with PASDDT by specifying the DEBUG 
command : 

(3DEBUG filename 

The DEBUG command loads and starts the program currently in memory, 
with the debugger, PASDDT. 

If you want more control over where the debugger is placed, or you 
have the need for more options, you can use the TOPS-20 LINK program 
directly. Refer to the LINK Reference Manual for TOPS-20 information. 

When running PASDDT, the source file with the extension PAS should be 
located in the same directory as the EXE version of the file. This 
should also be the directory to which you are connected when running 
PASDDT. If you have specified a file with the %INCLUDE directive, 
PASDDT looks for a file with the same name. 



9.2 USING SYMBOLIC VALUES 

Symbolic values are the identifiers defined within the source program. 
PASDDT allows access to identifiers available only in the current 
scope, and performs recognition on these identifiers. 

You can specify a location in the source code by using the line number 
shown in the listing file created when the program is compiled. See 
Section 8.4.7. 
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9.3 SCOPE 

Scope is the range within the program in which a specific definition 
of an identifier exists. The scope corresponds to the part of the 
program in which the identifier can be used. Figure 9-1 shows the 
scope of three variables in program Modules. The scope of the 
identifier A (a global variable) is the entire program. The scope of 
variable B, declared in procedure Outer, is the entire procedure, 
including procedure Inner. The scope of variable C is limited to 
procedure Inner. 

SCOPE 



f R G G R A M Mo d u 1 e s (IHPU J y U T F-' U T ) 5 
VAR A : INTEGER t ^^^ 0? 

PROCEDURE Outer? 
VAR B : INTEGER? 
PROCEDURE Inner? 

VAR C : INTEGER? 

DE G IN ( Jkbe.'S i n I nne r * ) 



ENDi 
BEGIN 



(*end Inner*) 
(*be^in Outer*) 



END? (*end Outer*) 

BEGIN (*iiiain prosiraiTi*) 

* 

END* <*end main program*) 



Figure 9-1: Scope 



PASDDT uses the concept of dynamic scope when accessing identifiers 

and their values. Dynamic scope is the scope in relation to the use 

of the program; the dynamic scope refers to the level at which a 

particular identifier is being used. For example, a recursive 

procedure (a procedure that calls itself) has multiple scopes for the 
same identifier. 

PASDDT represents the scope of an identifier with a positive integer. 
Global data has a scope of 1. Each nested level from that has a scope 
of one greater than that of the level from which it is called. The 
following example is a recursive function that calculates factorials. 
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F' R C) G R A M C a I c ulate (1 M P U T r U I' F' U J ) ? 

KffitR Answer y Nuir. t INTEGER? 

FUNCTION Factorial (Number I INTEGER) I INTEGER? 
BEGIN 

WHILE Number > DO 

F 3 c t o r i a 1 t ■■■■■ N i.i m b e r * F" actor :i. a I < N u m b e r^ ■••■ .1 ) ? 
END? 

BEGIN 

A I'l s w 6» r ♦ == F' <;} c t o rial ( N u m ) ? 



END* 

When Factorial is called from the main program, the value of Num is 
passed to Number. Until Number is equal to 0, the function Factorial 
continues to call itself; the value of Number is decremented by 1 
each time the function calls itself. Assume that the value 3 is 
passed to Number. Number then has t?ie value of 3, then of 2, then of 
1, then of 0. Each call to itself represents another level of dynamic 
scope. Number has a scope of 1 the first time it is called; a scope 
of 2 the second time it is called, and so on. 



9.4 PASDDT COMMANDS 

The following sections describe each of the PASDDT commands. The 
default radix for all purposes is decimal. 

PASDDT uses the facility of recognition and guidewords. Recognition 
permits you to type enough of the word or identifier to be unique. 
For example, you can type CL to specify the CLEAR command. You can 
also use recognition with identifiers you have used in the program. 
For example, if you have defined the identifiers NewList and NewTABLE, 
you could use NewL and NewT, respectively, to specify these 
identi tiers . 

PASDDT also provides guidewords when you press the ESC key. The guide 
words indicate what you should enter next. In the following sections, 
guidewords are displayed in parentheses. You do not need to type the 
guidewords or the surrounding parentheses in the syntax. In addition, 
PASDDT displays the options that you can enter when you type a 
question mark (?). For more information about recognition and 
guidewords, refer to the TOPS-20 User' s Guide. 



9.4.1 ASSIGN 

ASSIGN assigns a value or virtual address to the specified identifier. 
The format is: 

ASSIGN (VARIABLE or ADDRESS) (user identifier) (:=) (constant 



^ user identifier) (:=) (constant ) 
(octal address j \octal value) 



wh e r e : 

user identifier is a variable name in the active scope, 
octal address is a virtual address in the user program. 

9-3 



PASDDT: THE PASCAL-20 DEBUGGER 

constant is a value with a simple data type of 

INTEGER, REAL, CHAR, BOOLEAN, DOUBLE, or 
user-defined enumerated type. 

octal value is the value to be placed in the octal 

address. 

Exampl e 

PASDDT>ASSIGN New_..:int < J -= ) 20 

This example assigns the value of 20 to user identifier New_Int. 



9.4.2 BREAK 

BREAK sets a new breakpoint at a specified location or resets an 
existing breakpoint. During a debugging session, when the program 
reaches the location specified, it stops execution, thus allowing you 
to perform debugging operations. You can set a maximum of 20 
breakpo ints . 

To set a new breakpoint, use the following format of the BREAK 
command ; 

BREAK (AT) line number J (NAME) break identifier]] 

wh e r e : 

line number is a line number corresponding to a line in 

the source code. These line numbers are 

found in the listing file generated when you 
compile the program. 

break identifier is the name you associate with the 

breakpoint. Each breakpoint identifier can 
contain any number of characters, but the 
first nine characters must be unique. The 
break identifier can contain all characters 
except an underscore (_) or dollar sign ($). 

Note that you cannot set a breakpoint in the declaration section of a 
program. If you do, PASDDT sends you an error message and does not 
set the breakpoint. 

To change the status of a breakpoint from CLEAR (Section 9.4.3), use 
the following format of the BREAK command: 



BREAK 



(AT) /line number I 

I break identifier! 



wh e r e ; 



line number is the line number of the breakpoint that you 

want to reactivate. 

break identifier is the name of the breakpoint you want to 

reactivate. 

Note that you can find out the status of breakpoints by displaying 
them with the DISPLAY command. See Section 9.4.4 for information on 
the DISPLAY command. 
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The following rules apply to the use of BREAK: 

If you specify a break identifier, but not a line number, the 
following happens: 

• Tf there is already a breakpoint with this identifier, this 
breakpoint is used. 

• If there is no breakpoint with this identifier, an error 
occurs . 

If you specify a line number, but not a break identifier, the 
following happens: 

• If a breakpoint is assigned for this location, that 
breakpoint is used. 

• If a breakpoint has not been assigned, a new breakpoint is 
established with the identifier NO_NAME. 

If the command specifies both a line number and a break identifier, 
the following happens: 

• If a breakpoint has already been assigned for this location 
with this identifier, the previously defined breakpoint is 
used . 

• If a breakpoint has already been assigned for this location 
with a different identifier, an error occurs. 

• If a breakpoint has already been assigned at another location 
with this identifier, and no breakpoint has been set at this 
location, PASDDT prints a warning message. PASDDT then asks 
if you want to override the address associated with that 
breakpoint. If so, the previous breakpoint is discarded, and 
a new breakpoint is declared with the given identifier and 
location. 

Note that you must use the PROCEED command after each break for the 
program to continue. PROCEED is described in Section 9.4.7. 

Note the following example: 

PASIiDT> break 10 first 
PASDDT> display break 
BREAK F'-OINKS) J 

Name = FIFi;GT 

Break Address = 000000400044 

Line Number ~ 10 

Status ••:= BREAK 

F"ASDDT> proceed 
»BREAK: FIRST 

PC AT VIRTUAL ADDRESS 00000040044 
PASCAL LINE NUMBER =:= 10 

LINE ?: Count t-^-- Or 

LINE lOJ WRITELN ('Enter wour scores* When doner type CTRL/Z*')? 
LINE 11 : WHILE NOT EOF DO 
PASDDT> 
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As shown in the previous example, PASDDT automatically displays three 
lines of source code at a breakpoint. See the SET command. Section 
9 . 4 . 9 ,r for details of controlling the display of source code when a 
breakpoint is reached. 



9.4.3 CLEAR 

CLEAR turns off breakpoints and tracepoints set with the BREAK and 
TRACE commands. The format is: 

CLEAR (AT) jline number \ [[(NAME) break identifier]] 
^break identifier! 

wh e r e : 

line number is the line number in the source code where 

the breakpoint or tracepoint is set. 

break identifier is the name of the breakpoint or tracepoint 

associated with the line number. 

You can specify either both the line number and associated break 
identifier, just the line number, or just the break identifier. 

The CLEAR command does not delete the breakpoint or tracepoint; the 
CLEAR command merely turns it off. Also, although you have cleared a 
breakpoint or tracepoint, it is still counted in the total 20 allowed. 
To delete a breakpoint or tracepoint, use the REMOVE command. Section 
9.4.8. If you want to check the status of breakpoints and 
tracepoints, use the DISPLAY command. Section 9.4.4. 

Note the following example: 

P A S El n I :::b i^ e a k 1 1 o ri 6? 
F-' A S n IJ I .':=-b reek 12 two 
P A S D Ii f ;:■<•' i ^^ f-' 1 ^ y b r e a k 
BREAK POINT(S) : 

Name = ONE 

Break Address =^ 000000400062 
Line Number 11 

Status ■■^■■■- BF<EAK 

Na'me - TWO 

Break Address --■■ 000000400071 

Line Number -• 12 

Status ■■^■■■- BREAK 

PASDDT>cl ear 11 
P A S Ii D T >i i s p 1& \H break. 
BREAK POINT(S) J 

Name === ONE 

Break Address 000000400062 
Line Number r -• 11 

Status '■■■■■ OFF 

Name =^ TWO 

Break Address ■■■■^ 000000400071 
Line Number === 12 

Status =••= BREAK 
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F-'ASDi:iT> clear ttsio 

P A S IJ Ii T > d :i. s p I a \:{ bve a k 

BREAK F-'D]:NT(8) t 

Name ■■■■■■■ ONE 

Break Address ••■■■■ 000000400062 
Line Number •- 1.1. 

Status ■■■■=■■ OFF 

Name ■■^■■■- TWO 

Break Address 000000400071 
Line Number 12 

Status ■■■■^■- OFF 

F:'ASDDT> break 12 

F-' A S D n T' :> d i s p 1 a \:i b v e a k 

BREAK F-'OINT<S) : 

Name ••■" ONE 

Break Address 000000400062 
Line Number -" 11 

Status --■■■■ OFF 

Name ■■■■■■■ TWO 

Break Address 000000400071 
Line Number 12 

Status ■■■--■ BREAK 

PASDDT>ex 



9.4.4 DISPLAY 

The DISPLAY command has three functions: 

1. To show the status of breakpoints and tracepoints 

2. To show the calling sequence of procedures and functions 

3. To show a line (or range of lines) of the source code 

To DISPLAY information about breakpoints and tracepoints, use the 
following format: 

DISPLAY B IrEAK-IDENTIFIERB [break identifier]] 

wh e r e : 

B IrEAK-IDENTIFIErI indicates that you want to display 

breakpoints and tracepoints. 

break identifier is the name of a particular breakpoint or 

tracepoint. If you do not specify a break 
identifier, PASDDT displays information 
about all of them. 

The information you receive includes the name of the breakpoint, the 
line number of the breakpoint, and the status of the breakpoint (ON or 
OFF) . 
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Note the following example 

F A s ii ri r :>*^^ '^ ■;> >■' i ^^ "-f ^> '^^ ^- <^^ •'• 

BREAK F-' DINKS) t 



lA ;;> 



N (IS III e ■"■ f 

Break Address 00000000037!;^ 

I... :i. ri e N i,.i iri b e r^ -- 1. 9 

StBiLis BF<EAK 

Name ■■■■■■^ SECOND 

Break Address 0000000004^i2 

I... i I "I e N i.i III b e r -- 2 3 

Stall. IS -- TRACE 

Name -■• THIRD 

Br^eak Address ■■■■^- 000000000617 
Line Number -= ^!iy 

PASDDT>disp.t3y break second 

BREAK F'OINT(S) : 

Name - SECOND 
Break Address ^= 000000000452 
I... irie Number 23 

Status -'■' TRACE 



To DISPLAY the calling sequence of procedures and functions, use the 
following format: 

DISPLAY (OPTION) 1 UnVOCATION-STACK ]] iintegerl [Ti/STATIC \T\ 

\ * ' U. (/DYNAMIC 111 

where: 

I [Invocation-stack l indicates that you want to display the 

calling sequence of your routines. 

integer is a decimal number representing how 

many routine calls to display. 

* indicates that you want all routine 

calls displayed back to the main 
program. 

/static causes the static level of the routines 

to be displayed as they were defined in 
the user program. 

/DYNAMIC causes every invocation of a routine to 

be displayed. This is the default. 

The information you receive includes the calling sequence, the static 
level of the procedure or function, and the address at the time of the 
d isplay . 
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Note the following example: 

P A S IJ I J T > d .i. s p 1 a ^:i i n v o c m t i o n - s t a c I-;. * / lii t a t i c 

p R c) c: i:;; i:i u r i;- n a m t- s r a j :i: c; i... i;;: k> p. i... a ij n r e s s 

GR(:)Ci:::RY...,B.ri,.,i... :i. 000.140 

F-' A S n I.'i I' > d J. <::• p 1 a ^:< i i"i v o c.^ ^ / d '■■j n a in i <:: 

PRGCH-DURE NAME STATIC LE^EL.. ADDRESS 

GROCERY....B:i;i...i... 1. 000140 

PASDDT> 

To DISPLAY lines of source code in the current scope, use the 
following format: 

DISPLAY (OPTION) S [OURCE-L INE ]] line number H/RANGE : i n teg er J 

where : 

S [OURCE-LINE J indicates that you want to display a line of 

the source code. 

line number is an integer representing a line in the 

source code. You will find these numbers in 
the listing file. 

/RANGE: is an optional value indicating that you want 

to display more than one line of source code. 

integer is a decimal number indicating how many lines 

of source code to display. 

DISPLAY prints the source code of the line number you specify and any 
other lines included in the range. 

Note the following example: 

I"' A S IJ IJ r :>d i s >■■' 1 a \:i s o u r ce '5/ r a n ^etlO 

1... 1 N P 5 : Y & s .... N t) "" (Yes f No)? ( * D e f i n es da t a t y p e Y e s „. N o 

I... I N E 6t w i t h V a .1 u e s Ye s a ri d N o * ) 

LINE 7; 

LINE 81 UAR 

I... .1: N 1;:: 9 i 1 1 e nfi .... F^' r^ ice ? I o tal f 

L .[ N I;:.' :L X C, o 1..1 p r) ri ..„ A iti o 1..1 ri t J R e a 1 ? ( * D e <.: 1 a r e s t h t' e e real v a r :L a b I e s * .) 

LINE I ;L J Ans % Yes....No? i% Declares a variablej- Ansr of t'^fpe 

LINE :l.2: Yes...No *) 

LINE 17>\ Subtotal y Coupons: REAL X---- 0.0? 

LINE lAl 

PASDDT> 



9.4.5 EXIT 

EXIT halts execution of the program. The format is 
EXIT 
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Note the following example: 

F'Asdiit>ex;i:t 

CPU i:i.irie: 00.16 El.upsed time: 03.37 
(r? 

This exits you from PASDDT and puts you at T0PS-2n command level. The 
CPU time and elapsed time are also displayed. 



9.4.6 HELP 

HELP displays a help message. The format is: 

HELP (with PASDDT) [[command name]] 
Note the following example: 

PASDDT:: -help 

[.' H E" L. F' 11 HELP llcomiriand ricmie or r e t u tm'i 11 

Hi is cronrnriand a i lows the i..iser to i^iet help with F-'ASDDT* 

I y p e ' H E L F ' ' f o 1 1 o w e d b y t h e c o iti in a rt d y a i..i w a ri t h e 1 p 

w i I, h T •:■.{ p e 3 G I.J e s t i o r i iti a r k. ( ' ? ' ) t o s e e t h e c o iii iii a n d s 
t h a t a r e a v a i 1 a b 1 e . 

PASDDT>e;< 

This displays help messages about all of the PASDDT commands. 

9.4.7 PROCEED 

PROCEED initiates or continues execution of the program until a 
breakpoint is reached or the user program terminates. The format is: 

PROCEED (with USER Program) 

Example 1 

(3 PASCAL 

P A 5 C A L_ :> T E S 7' . F' A S / D E B I J 

PASCAL>/EXIT 

(!iDEBU(?, TEST 

FASDDT> PROCEED 

This example shows source program TEST. PAS being compiled, loaded, and 
started. PROCEED initiates the execution of the program. 

Example 2 

0? PASCAL 

G)PASCAL>EXAMPL /DERUG 

PASCAL>/EXIT 

& LOAD EXAMPL » REL , SYS : PASDDT . REL 

©SAVE EXAMPL 

PRUN EXAMPL 

PASDDT> PROCEED 
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This example compiles and loads the program EXAMPL. Loading 
PASDDT. REL with the program EXAMPL causes a copy of PASDDT to become a 
part of the executable file EXAMPL.EXE. PROCEED initiates the 
execution of the program. 

Example 3 

PASi:ii:iT>BREAK 35 Break I 

PASDDT>pROCEEi:i 

This example causes the program to resume execution after stopping at 
a breakpoint. 



9.4.8 REMOVE 

REMOVE deletes breakpoints and tracepoints completely. The format is: 

REMOVE (AT) ('.line number ) 1 (NAME) break identifier]] 
(break identifier) 

wh e r e : 

line number is the line number in the source code where 

you set the breakpoint or tracepoint. 

break identifier is the name of the breakpoint or tracepoint. 

You can specify either a line number followed by the break identifier 
associated with that line number, just the line number, or just the 
break identifier. 

Note the following example: 

PASDDT>break 10 

F A S D I.I r ."d i s Play b r e <3 k 

BRE-AK POINT <S) : 

Name ■■-- <NONAME> 

Break Address = 000000400044 

Line Number - 10 

Status = BREAK 

PASDDT>remove 10 
P A S D D T ::-d i s f 1 a y b i' e a k 
NO BREAKPOINTS SET 
PASriDT>eK 



9.4.9 SET 

The SET command has; four functions: 

1. Turning on automatic displaying of source code when a 
breakpoint is executed. This is the default. 

2. Telling PASDDT how many lines to display when a breakpoint is 
executed. The default is three. 
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3. Telling PASDDT which separately compiled module to use in 
terms of setting breakpoints and gaining information about 
the user program. When PASDDT starts up, the default is the 
main program. 

4. Setting the level of information displayed by PASDDT. The 
default is VERBOSE. 

To SET the automatic displaying of source code on or off, use the 
following format: 



J A [[uto-display]] 
\no-a [[uto-dtsplayI 



where 



AUTO-DISPLAY turns on the automatic displaying of source 

code at a breakpoint. This is the default. 

NO-AUTO-DISPLAY turns off the automatic displaying of source 

code at a breakpoint. 

When AUTO-DTSPLAY is set, PASDDT displays the line of source code at 
the breakpoint. If your terminal is slow or you are using a dial-up 
line, you may want to turn off displaying the source code with 
NO-AUTO-DISPLAY. 

Note the following example: 

PASDl'iT>brei^k .10 
PAGDDT>set no-auto 
PASi:iDT> proceed 

>>break: 

pc at virtual. address 000000000416 

pascal. line numder - 10 

PASDDT> break 12 

PASDDT.>set auto 

PASDDT>F'roc 

Enter ••jour scores* When doner type CTRL/Z» 

23 

>>break: 

pc at virtual address 000000000443 

pascal line numder = 12 

line 11 j while not eof do 

line 12: begin 

LINE 13: READLN (Score)? 

To SET the number of lines to automatically display, use the following 
format of the SET command: 

SET (OPTION) W IIlNDOWll n 

where : 

WINDOW indicates that you want to set the number of 

lines of source code to display at a 
breakpoint. 

n is a decimal integer specifying how many 

lines of source code to display. The default 
is three. 

The window is centered around the line on which the breakpoint is set. 
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Note the following example: 

F-' A S 1.1 n T > s e t w .i. ri d o w :i. 

PASDDT>proc 

45 

>>BF^EAKJ 

F-'C AT MTFMUAL ADDFv'E SS 00 00 00 0004 4 3 

F-'ASCAI. I...;FNE NUMBEf< ■■■■■■■ 12 

LINE 7 J BEGIN 

LINE Bt Total t ■■■■ 0? 

LINE 9: Count I ■■■■■■■■ 0? 

LINE 10 J WF^ITELN ('Enter your scores* When done^ type CTRL/Z.')? 

LINE II ; WFtFLE NOT EOE DO 

LINE 12 J BEGIN 

LINE 13; F^EADLN (Score) P 

L. I N i;;: I 4 t r o t a l t ■■■■■■^ S c o r e •!■ 1 o t a :i. ? 

LINE \.'5t Count l--^^ Count f 1? 

LINE 16 J End? 

To SET the name of the module where PASDDT can find information 
relevent for debugging purposes, use the following format of the SET 
command : 

SET (OPTION) M [[ODULeI module name 

where : 

MODULE indicates that you want to specify the name 

of a separately compiled module. 

module name is the identifier after the word PROGRAM or 

MODULE in the source file. At start-up, the 
default is the main program. 

Note the following example: 

F-'ASDDT>set module ? MODULE NAME AVERAGE.._SCOF<E 

PASDDT>set module average.- score 

F'ASDDT> 

To SET the level of information displayed by PASDDT, use the following 
format of the SET command: 



SET (OPTION) V [[ERBOSITY]] (OF TYPEOUT) 



{^tt^^^rH} 



where 



VERBOSITY indicates that you want to change the level 

of information displayed. 

VERBOSE displays the most information. This is the 

def aul t . 

BRIEF displays a minimal amount of information. 
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Note the following example: 

P A S B li T :>,:; e t v e t^ b o <:> 1 T Y ( C) F T Y P P. Ij T ) b r i e f 

r'ASDi:iT.>Prace 

■:>6 

»BRPAKt 

PASCAL i.,.:i:ne number - :l.2 

LINE 7: BEGIN 

LINE a: Total I -^^ Or 

LINE 9: Count J ^^ 0? 

I... J.' N P. 1 X W R 1 T P. I... N ( ' li.'; I -I I, e r^ \j o u t' s o o i^ e s ♦ W fi e ri d o n e r t «:< p (•:•? (!) T" FU.. / Z ♦ ' ) ? 

LINE lU WHILE NOT EOE DO 

LINE 12: BEGIN 

LINE 13: F^EADLN (Score)? 

LINE 14: Total l----^ Score t Total? 

LINE 15: Count : ^^^^ Count f Ir 

LINE 16: End? 

PASDDT>set window 5 

PASDDT>;.vroc 

/8 

>> break: 

pascal line number n. [2 

L I N E 1 : W R I T E L N ( ' E n t e t^ ^j o u r s c <.) r e <;j * W f i e n d o ri e y t y p e C T R L / Z ♦ ' ) ? 

LINE 11 : WHILE NOT EOF DO 

LINE 12: BEGIN 

LINE 13: RE ADEN (Score)? 

LINE 14: Total t ■■r- Score f Total? 

PASDIiT>exit 



9.4.10 SHOW 

The SHOW command prints the current value of an identifier. The 
format of the SHOW command is: 



SHOW (VARIABLE OR ADDRE 
wh e r e : 



SS) (user identifier) 
(octal address / 



user identifier is the name of a variable in the current 

scope . 

octal address is a virtual address in the user program. 

(This is not the address shown in the listing 
file.) 

Note that, when you set a breakpoint, PASDDT automatically displays 

three lines of source code, unless you specified SET NO-AUTO-DISPLAY. 
You can then see any identifiers that are declared for the current 
scope of the user program with the SHOW command. You can also type a 
question mark (?) to the SHOW command to see what identifiers are 
ava liable . 
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Note the following example: 

PASDDT > break ;U) 
PASDDT>proc(:?ed 

PC AT MIRrUAL ADDRESS 000000400044 

PASCAL LINE NUMBER ■■■■■■■■ 10 

LINE 91 Count t ^■■^■- 0? 

LINE 10 J WRITELN ('Enter \.iQur scores* When doney type CTRL/Z.')5 

LINE lit WHILE NOT EOF DO 

PASDDT>show ? MIRIUAL ADDRESS 

or PASCAL k-'ARIABLE one of the follow! ns-H 

a<^;eraoescore Average.... score count input 

OUTPUT score total 

r-' A S B D T ;> s h o w s c o r^e 

VALUE 

TYPE -^ INTEGER 
ADDRESS ■-■■^■- 037060 

F-' A S D ri T : •• s h o w c o i..i n t 

i;alue - 

TYPE -= INTEGER 

ADDRESS ^^ 037062 

I •■ A S i;i D r ;> s h o w l n p I.J t 

I"' :i. 1 e i s F E N f or r e a d i ri <=J 

File is a TEXT file 

File is TTY; 

File is the standard INPUT file 

File name -- TTY* 
PASDDT>ex 



9.4.11 TRACE 

TRACE sets a new tracepoint at a specified location or resets an 
existing tracepoint. When the program reaches the location specified, 
PASDDT prints a message indicating that a trace was placed on this 
line. Unlike the BREAK command, TRACE does not halt program execution 
or print source code. You can set a total of 20 tracepoints and 
breakpoints. Clearing them does not delete them from the count. 

To set a new tracepoint, use the following format of the TRACE 
command : 

TRACE (AT) line number [[(NAME) trace identifier]] 

wh e r e : 

line number is the line number associated with the line 

of source code that you want to trace. This 
line number can be found in the listing file. 

trace identifier is the name you want to associate with the 

tracepoint. Each identifier can contain any 
number of characters, but the first nine 
characters must be unique. The identifier 
can contain all characters except underscore 
( ) and dollar sign ($). 
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To reset a tracepoint that you have turned off with CLEAR (Section 
9.4.3), use the following format of the TRACE command: 



TRACE (AT) 



J ] ine number I 
(break identifier) 



where 



line number is the line number of an existing tracepoint 

that you want to reset. 

break identifier is the name of an existing tracepoint that 

you want to reset. 

The following rules apply to the use of TRACE: 

If you specify a trace identifier, but not a line number, the 
following happens: 

• If there is already a tracepoint with this identifier, this 
tracepoint is used. 

• If there is no tracepoint with this identifier, an error 
occurs . 

If you specify a line number, but not a trace identifier, the 
following happens: 

• If a tracepoint is assigned for this location, that 
tracepoint is used. 

• If a tracepoint has not been assigned, a new tracepoint is 
established with the identifier NO_NAME. You can have more 
than one tracepoint with the name NO_NAME. 

If you specify both a line number and a trace identifier, the 
following happens: 

• If a tracepoint has already been assigned for this location 
with this identifier, the previously defined tracepoint is 
used . 

• If a tracepoint has already been assigned for this location 
with a different identifier, an error occurs. 

• If a tracepoint has already been assigned at another location 
with this identifier, and no tracepoint has been set at this 
location, PASDDT prints a warning message. PASDDT then 
asks if you want to override the address associated with the 
previous tracepoint. If so, the previous tracepoint is 
discarded, and a new tracepoint is declared with the given 
identifier and location. 
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Note the following example: 



F-'ASDDT>t race 10 one 
PASDi:iT> proceed 

>> trace;;: one 

PC AT M;IRTUAL address 000000400044 

F'ASCAL LINE NUMBER =^ ;I.O 

E n t e i^ \:{ o I..I T^ s c o t- e s , W h e n d o ri e r t h p e (;) T R I... / Z ♦ 

7 '5 

44 

89 

"^'ZJhe averB<}ie score ist 69*3 
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APPENDIX A 
PASCAL MESSAGES 



Table A-1 : Run-time Errors 



? PRTOOl Value not within subrange of variable in assignment. 

? PRT002 Case selector out of range. 

? PRT003 Array index out of bounds. 

? PRT004 Conformant array index out of bounds. 

? PRT005 Size of conformant arrays incompatible. 

? PRTOOfi NIL pointer value at runtime. 

? PRT007 Attempt to divide by 0. 

? PRT008 Mod with or negative value. 

? PRT009 Set value out of range in assignment. 

? PRTOIO Set element out of range in assignment. 

? PRTOll Stack expansion failed - No more memory available 
for stack space. 

? PRT012 Memory expansion failed - No more memory available. 

? PRT013 DISPOSE called with NIL pointer. 

? PRT014 Page creation failed, error code = number. 

? PRT015 Page destroy failed, error code = number. 

? PRTOlfS Insufficient initial memory - cannot start program. 

? PRTOIV Fatal error - illegal instruction detected at user 
PC number. 

? PRT018 Fatal error - illegal memory reference detected at 
user PC number. 

? PRT019 Fatal error - illegal memory read detected at user 
PC number. 

? PRTn20 Fatal error - illegal memory write detected at user 
PC number. 

? PRT021 Fatal error - non-existent page detected at user PC 
number . 
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Note that errors PRT017 through PRT021 are probably caused by improper 
use of an array or pointer variable. If you receive one of these 
errors, try compiling the program with the /CHECK switch. 

Table A-2: I/O Errors 



? PIOOOl User buffer overflow. File in error: filespec 

? PIO002 Line limit exceeded. File in error: filespec 

? PTO003 File not open for reading. File in error: filespec 

? Plon04 File not open for writing. File in error: filespec 

? PIO005 Field width <= zero. File in error: filespec 

? PIO0n6 String write error. File in error: filespec 

? PIO007 Integer write error. File in error: filespec 

? PIO008 Field width < zero. File in error: filespec 

? PIO009 Attempt to read past EOF. File in error: filespec 

? PTOOIO Integer read error. File in error: filespec 

? PIOOll String read error. File in error: filespec 

? PIO012 Illegal character in number I/O. File in error: 
f i 1 espec 

? PI0013 Attempt to RESET (output) . File in error: filespec 

? PIO014 Attempt to RESET { i nput) . File in error: filespec 

? PIO015 Integer overflow. File in error: filespec 

? PIO016 Attempt to reset/rewrite uninitialized file. File in 
error: filespec 

? PI0017 Error in opening binary file. File in error: 
f i lespec 

? PIO018 Error in writing to object file. File in error: 
f i ] espec 

? PIO019 Error in closing binary file. File in error: 
f i 1 espec 

? PIO020 Delete file error. File in error: filespec 

? PIO021 Include/Exclude file error. File in error: filespec 

? PIO022 Attempt to use FIND on text file. File in error: 
f i ] espec 

? PIO023 Attempt to FIND a negative record. File in error: 
f i lespec 

? PTOn24 Field width too small for number output. File in 
error: filespec 
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Table A-2: I/O Erirors (Cont.) 



? PIO025 Scalar out of range. File in error: filespec 

? PTO026 Attempt to open/close INPUT file. File in error: 
f ilespec 

? PIO027 Attempt to close OUTPUT file. File in error: 
filespec 

? PIO02R Attempt to write to READONLY file. File in error: 
f ilespec 

? PIO029 Attempt to open already opened file. File in error: 
f i 1 espec 

? PIO030 Attempt to REWRITE (output) . File in error: filespec 

? PIO031 Attempt to REWRITE ( input) . File in error: filespec 

? PIO032 Exponent too large. File in error: filespec 

? PIO033 Exponent too smal]. File in error: filespec 

? PI0n34 Reset error -- File not found. File in error: 
f il espec 

? PI0035 Scalar is all blanks. File in error: filespec 

? PI003G Attempt to read past end of line. File in error: 
f ilespec 

? PIO037 Attempt to readln/wr i teln to a binary file. File in 
error: filespec 

? PT0040 PAGE called with file opened NOCARRIAGE. File in 
error: filespec 

? PIO042 EOLN called when EOF true. File in error: filespec 

? PTOO'lS Testing EOF on unopened file. File in error: 
f il espec 

? PI 00 4 4 Too many open files. 

? PTO045 Attempt to RESET new internal file. File in error: 
f i 1 espec 

Compile-Time Errors 

? PASOOl Error in simple type 

The declaration for a base type of a set or the index type of an 
array contains a syntax error. 

? PAS002 Identifier expected 

The statement syntax requires an identifier, but none can be 
found . 
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? PAS003 "PROGRAM" or "MODULE" expected 

The statement syntax requires the reserved word PROGRAM or 
MODULE. 

? PAS004 ") " expected 

The statement syntax requires the right-parenthesis character. 
? PAS005 ":" expected 

The statement syntax requires a colon character. 

? PAS006 Illegal symbol 

The statement contains an illegal symbol, such as a misspelled 
reserved word or illegal character. 

? PASOO'7 Error in parameter list 

The parameter list contains a syntax error, such as a missing 
comma, colon, or semicolon character. 

? PASnoS "OF" expected 

The statement syntax requires the reserved word OF.. 
? PAS009 " (" expected 

The statement syntax requires the left-parenthesis character. 

? PASOIO Error in type 

The statement syntax requires a data type, but no type identifier 
is present. 

? PASOll "[" expected 

The statement syntax requires the left square bracket character. 
? PAS012 "1 " expected 

The statement syntax requires the right square bracket character. 

? PAS013 "END" expected 

The compiler cannot find the delimiter END, which marks the end 
of a compound statement, subprogram, or program. 

? PASO 14 "; " expected 

The statement syntax requires the semicolon character. 
? PAS015 Integer expected 

The statement syntax requires an integer. 

? PAS016 "=" expected 

The statement syntax requires the equal sign to separate a 
constant identifier from a constant value or to separate a type 
identifier from a type definition. 
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? PASniV "BEGIN" expected 

The compiler cannot find the delimiter BEGIN, which marks the 
beginning of an executable section. 

? PAS018 " . ." expected 

The compiler cannot find the .. symbol, which is required 
between the endpoints of a subrange. 

? PAS019 Error in field list 

The field list in a record declaration contains a syntax error. 
? PASn20 "," expected 

The statement syntax requires a comma. 

? PAS021 Empty parameter (successive ",") not allowed 

The parameter list attempts to specify a null or missing 
parameter, or contains an extra comma. 

? PAS022 Illegal ( nonpr intable) ASCII character 

The program contains an illegal character that is not a printable 
ASCII character. 

? PAS023 "," or ")" expected 

The statement syntax requires either a comma or a 
right-parenthesis character. 

? PAS024 "' ' " expected 

The statement syntax requires two quotation marks. 
? PAS050 Error in constant 

A constant contains an illegal character or is improperly formed. 
? PAS051 ":=" expected 

The statement syntax requires the assignment operator. 

? PAS052 "THEN" expected 

The compiler cannot find the reserved word THEN to complete the 
IF-THEN statement. 

? PAS053 "UNTIL" expected 

The compiler cannot find the reserved word UNTIL to complete the 
REPEAT statement. 

? PAS054 "DO" expected 

The compiler cannot find the reserved word DO to complete the FOR 
statement or the WHILE statement. 

? PAS055 "TO" or "DOWNTO" expected 

The compiler cannot find the reserved word TO or DOWNTO in the 
FOR statement. 
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? PAS058 Invalid expression 

The statement syntax requires an expression, but the first symbol 
the compiler finds is not legal in the expression. 

? PAS059 Error in variable 

A reference to an array element or record field contains a syntax 
error . 

? PAS060 "ARRAY" expected 

The compiler cannot find the reserved word ARRAY in the type 
definition. 

? PASO^l "PROCEDURE" or "FUNCTION" expected 

The statement syntax requires the reserved word PROCEDURE or 
FUNCTION. 

? PAS062 Internal compiler error 

An internal error has been detected. 
? PAS095 Functions "BIN", "OCT", or "HEX" not allowed in this context 

The context does not allow the functions BIN, OCT, or HEX. 
? PAS096 File component may not exceed 65535 words 

The file component is larger than 65535 words. 
? PAS097 Error count exceeds error limit. Compilation aborted. 

The number of errors exceeded the limit you specified. 

? PAS099 End of input encountered before end of program. Compilation 
aborted . 

? PASIOO Array size too large 

A declared array is larger than 2,147,483,647 bytes or 
2,147,483,647 bits for a packed array. 

? PASlOl Identifier declared twice 

An identifier is declared twice within a declaration section. 
You can redeclare identifiers only in different declaration 
sections. 

? PAS102 Lowbound exceeds highbound 

The lower limit of a subrange is greater than the upper limit of 
the subrange, based on their ordinal values in their base type. 

? PAS103 Identifier is not of appropriate class 

The identifier names the wrong class of data. For example, it 
names a constant where the syntax of the statement requires a 
procedure. 

? PAS104 Identifier not declared 

The program uses an identifier that has not been declared. 
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? PAS105 Sign not allowed 

A plus or minus sign was found in front of an expression of 
nonnumeric type. 

? PAS106 Identifier previously used in this block. 

You gave two items the same identifier within the same block. 

? PAS107 Incompatible subrange types 

The subrange types are not compatible according to the rules of 
type compatibility. 

? PAS108 File not allowed in variant part 

A file type cannot appear in the variant part of a record. 

? PAS109 Type must not be real or double 

You cannot specify a real value here. Real values cannot be used 
as array subscripts, control values for FOR loops, tag fields of 
variant records, elements of set expressions, or boundaries of 
subrange types. 

? PASllO Tagfield type must be scalar or subrange 

The tag field for a variant record must be a scalar or subrange 
type. 

? PASlll Incompatible with tagfield type 

The case label and the tag field are of incompatible types. 
These two items iriiust be compatible according to the general 
compatibility rules. 

? PAS 112 Index type must not be real or double 

Array subscripts cannot be real values; if numeric, they must be 
integer or integer subrange values. 

? PAS113 Index type must be scalar or subrange 

Array subscripts must be scalar or subrange values, and cannot be 
of a structured type. 

? PAS114 Base type must not be real or double 

The base type of this set or subrange cannot be one of the real 
types . 

? PAS115 Base type must be scalar or subrange 

The base type of this set or subrange must be scalar or subrange 
values, and cannot be of structured type. 

? PAS116 Actual parameter must be a set of correct size 

The actual parameter must be of correct size when passed as a VAR 
parameter . 

? PAS117 Undefined forward reference in type declaration: name 

Compilation aborted. 
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? PAS118 Value initialization must be in main program 

A VALUE initialization must be in the main program. 

? PAS119 Forward declared: repetition of parameter list not allowed 

You cannot repeat the parameter list after the forward 
declaration of a subprogram. 

? PAS120 Function result type must be scalar, subrange, or pointer 

The function specifies a result that is not a scalar, subrange, 
or pointer type. Function results cannot be structured types. 

? PAS121 File value parameter not allowed 

A file cannot be passed as a value parameter. 

? PAS122 Forward declared function: repetition of result type not 
a llowed 

The result of the function appears in both the forward 
declaration and in the later complete declaration. The result 
can appear only in the forward declaration. 

? PAS123 Missing result type in function declaration 

The function heading does not declare the type of the result of 
the function. 

? PAS124 Fraction format for real and double only 

You can specify two integers in the field width (such as R:3:2) 
for real, single, and double values only. 

? PAS125 Error in type of predefined function parameter 

A parameter passed to a predefined function is not of the correct 
type. 

? PAS126 Number of parameters does not agree with declaration 

The number of actual parameters passed to the subprogram is 
different from the number of formal parameters declared for that 
subprogram. You cannot add or omit parameters. 

? PAS127 Parameter cannot be element of a packed structure 

You cannot pass one element of a packed structure to a 
subprogram; you must pass the entire structure if you want to 
use it. 

? PAS128 Result type of actual function parameter does not agree with 
decl aration 

The result of an actual function parameter is not of the type 
specified in the formal parameter list. 

? PAS129 Operands are of incompatible types 

Two or more of the operands in an expression are of incompatible 
types. For example, the program attempted to compare a numeric 
and a character variable. 
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? PAS130 Expression is not of set type 

The operators you specified are valid only for set expressions. 
? PAS131 Type of variable is not set 

The statement syntax requires a set variable. 

? PAS132 Strict inclusion not allowed 

You must use the <= and >= operators to test set inclusion. 
PASCAL does not allow you to use the less than (<) and greater 
than (>) signs for this purpose. 

? PAS133 File comparison not allowed 

Relational operators cannot be applied to file variables. 

? PAS134 Illegal type of operand(s) 

You cannot perform the specified operation on data items of the 
specified types. 

? PAS135 Type of operand must be Boolean 

This operation requires a Boolean operand. 

? PAS136 Set element must be scalar or subrange 

The elements of a set must be scalar or subrange types. Sets 
cannot have elements of structured types. 

? PAS137 Set element types not compatible 

The elements of this set are not all of the same type. 

? PAS138 Type of variable is not an array 

A variable that is not an array type is followed by a left square 
bracket or a comma inside square brackets. 

? PAS139 Index type is not compatible with declaration 

The specified array subscript is not compatible with the type 
specified in the array definition. 

? PAS140 Type of variable is not record 

A period appears following a variable that is not a record type. 

? PAS141 Type of variable must be file or pointer 

A circumflex character appears after the name of a variable that 
is not a file pointer. 

? PAS142 Illegal parameter substitution 

The type of an actual parameter is not compatible with the type 
of the corresponding formal parameter. 
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? PAS143 Loop control variable must be an unstructured non-floating 
point scalar 

The control variable in a FOR loop must be an integer, integer 
subrange, or user-defined scalar type; it cannot be a real 
var iabl e . 

? PAS145 Type conflict between control variable and loop bounds 

The type of the control variable in a FOR loop is incompatible 
with the type of the bounds you specified. 

? PAS146 Assignment of files not allowed 

You cannot assign one file to another. Output procedures must be 
used to give values to files. 

? PAS147 Label type incompatible with selecting expression 

The type of case label is incompatible with the type to which the 
selecting expression evaluates. Case labels and selecting 
expressions must be of compatible types. 

? PAS148 Subrange bounds must be scalar 

You can specify subranges of scalar types only. You cannot 
specify a real or string subrange. 

? PAS149 Index type must not be integer 

The index type of a nonconformant array cannot be integer, 
although it can be an integer subrange. 

? PAS150 Assignment to this function is not allowed 

You cannot assign a value to an external or predeclared function 
identi f ier . 

? PAS151 Assignment to formal function parameter not allowed 

You cannot assign a value to the name of a formal function 
parameter . 

? PAS152 No such field in this record 

You attempted to access a record by an incorrect or nonexistent 
field name. 

? PAS153 Type of parameter must be character string (array of char) 

The actual parameter passed to this function or procedure must be 
a character string. 

? PAS154 Type of parameter must be integer 

The actual parameter passed to this function or procedure must be 
an integer. 

? PAS155 Recursive %INCLUDE not allowed. Compilation aborted. 

? PAS156 Multidefined case label 

The same case label refers to more than one statement. Each case 
label can be used only once within the CASE statement. 
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? PAS157 Case labe] range exceeds 1000 

The range of ordinal values between the largest and smallest case 
labels must not exceed 1000. 

? PAS158 Missing corresponding variant declaration 

In a call to NEW or DISPOSE, more tagfield constants were 
specified than the number of nested variants in the record type 
to which the pointer refers. 

? PAS159 Doub].e, real or string tagfields not allowed 

Tag fields cannot be real or string variables, but must be 
scalar . 

? PAS160 Previous declaration was not forward 

The reiteration of a procedure or function that was not forward 
declared is illegal. 

? PAS] iSl Procedure/function has already been forward declared 

The subprogram has already been forward declared. 

? PAS162 Undeclared procedure or function: name Compilation aborted. 

You specified a procedure or function without declaring it in the 
declaration section. 

? PAS163 Type of parameter must be real or integer 

The subprogram requires a real or integer expression as a 
parameter . 

? PAS164 This procedure/function cannot be actual parameter 

The specified predeclared procedure or function cannot be an 
actual parameter. If you must use it in the subprogram, cal] it 
d i rectly . 

? PAS165 Multiply defined label 

A labe] appears in front of more than one statement in a single 
executable section. 

? PAS166 Multiply declared label 

The program declares the same label more than once. 
? PAS167 Undeclared label 

The program contains a label that has not been declared. 

? PAS168 Undefined label: label number Compilation aborted. 

You specified a label as an argument to the GOTO statement, but 
the label is not defined. 

? PAS169 Set element value must not exceed 255 

The ordinal value of an element of a set must be between and 
255. 
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? PASI'^0 Value parameter expected 

A subprogram that is passed as an actual parameter can have only 
value parameters. 

? PAS171 Type of variable must be textfile (file of char) 

The specified operation or subprogram requires a text file 
variable as an operand or parameter. 

? PAS172 Undeclared external file: name Compilation aborted. 

You specified an external file that was not declared in the 
declaration section. 

? PAS173 Negative set elements not allowed 

The value of an integer set element must be between and 255. 
? PASl'74 Parameter must be a file type 

The specified subprogram requires a file as a parameter. 

? PAS175 "INPUT" not declared as an external file 

The program makes an implicit reference to the file variable 
INPUT, but INPUT is either not declared or has been redeclared at 
an i nner level . 

? PAS176 "OUTPUT" not declared as an external file 

The program makes an imp] icit reference to the file variable 
OUTPUT, but OUTPUT is either not declared or has been redeclared 
at an inner level. 

? PAS177 Assignment to function identifier not allowed here 

Assignment to a function identifier is allowed only within the 
function block. 

? PAS178 Multidefined record variant 

A constant tag field value appears more than once in the 
definition of a record variant. 

? PAS179 File of file type not allowed 

You cannot declare a file that has components of a file type. 

? PAS181 Array bounds too large 

The bounds of an array are too large to allow the elements of the 
array to be accessed correctly. 

? PAS182 Expression must be scalar 

The expression must specify a scalar value; structured variables 
are not legal. 

? PAS183 "[GLOBAL]" or "[FORTRAN]" may only precede declarations at 
level 1 

The words [GLOBAL] or [FORTRAN] can be placed only in a function 
or procedure heading. 
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? PAS184 External procedure has same name as main program 

Program and procedure names must, be unique. 

? PAS186 Formal procedures may not have conformant array parameters 

You cannot pass a conformant array as a parameter to a procedure 
that is itself passed as a parameter. 

? PAS187 Illegal conformant array assignment 

The program attempts to perform an illegal assignment involving 
conformant arrays. 

? PAS188 Parameter must be scalar and not real or double 

The parameters to the predeclared functions SUCC and PRED must be 
scalar types, and cannot be one of the real types. 

? PAS189 Actual parameter must be a variable 

When you use VAR with a formal parameter, the corresponding 
actual parameter must be a variable and not a general expression. 

? PAS190 "READLN" , "WRITELN" and "PAGE" are defined only for 
textf i les 

The predeclared procedures READLN, WRITELN, and PAGE operate only 
on text files. 

? PAS191 "READ" and "WRITE" require input/output parameter list 

The READ and WRITE procedures require at least one parameter; 
you cannot omit the parameter list. 

? PAS192 Illegal type of input/output parameter 

Arrays, sets, records, and pointers cannot be parameters to the 
READ and WRITE procedures. 

? PAS193 Field width parameter must be of type integer 

The field width you specify must be an integer. 

? PAS194 Variable must be of type PACKED ARRAYri..ll] OF CHAR 

The DATE and TIME procedures require a parameter of PACKED ARRAY 
[1. .11] OF CHAR. 

? PAS195 Type of variable must be pointer 

The statement syntax requires a variable of pointer type. 

? PAS196 Type of constant does not agree with tagfield type 

The type of a constant in a tag value list is incompatible with 
the tag field type. 

? PAS197 Type of parameter must be real or double 

The statement syntax requires a real (single- or double- 
precision) value. 
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? PAS198 Type of parameter must be double 

The statement syntax requires a double-precision value. 

? PAS199 Parameter must be of numeric type 

The procedure or function requires an integer or real number 
value . 

? PAS200 Parameter must be scalar or pointer and not real 

The procedure or function requires an integer, user-defined 
scalar, Boolean, integer subrange, user-defined scalar subrange, 
or pointer parameter. 

? PAS201 Error in real constant: digit expected 

A real constant contains a nonnumeric character where a numeral 
is required. 

? PAS202 String constant must not exceed source line 

The end of the ] ine occurs before the apostrophe that closes a 
string. Make sure that the second apostrophe has not been left 
out . 

? PAS20.'^ Integer constant exceeds range 

An integer constant is outside the permitted range of integers 
(that is, 2**31 to 2**31). 

? PAS204 Actual parameter is not correct type 

The actual parameter is not compatible in type with the 
corresponding formal parameter. 

? PAS205 Zero length string not allowed 

You cannot specify a string that has no characters. 

? PAS206 Illegal digit in binary, octal or hexdecimal constant 

A binary, octal, or hexadecimal constant contains an illegal 
digit. 

? PAS207 Real or double constant out of range 

A single- or double-precision real number is outside the 
permitted range — . 29*10** (-38) to 1.7*(10**38) for positive 
numbers and -0 . 29*10** (-38) to -1 . 7* (10**38) for negative 
numbers. 

? PAS208 Data type cannot be initialized 

This variable contains a type, such as a file, that cannot be 
initial ized . 

? PAS209 Variable has been previously initialized 

You can specify only one VALUE declaration for a variable. 

? PAS210 Variable is not array or record type 

The VALUE initialization for a variable that is not a record or 
an array contains a constructor. 
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? PAS211 Incorrect number of values for this variable 

The VALUE declaration contains too many or too few values for the 
variable being initialized. 

? PAS212 Repetition factor must be positive integer constant 

The repetition factor in an array initialization must be a 
positive integer constant. 

? PAS213 Type identifier does not match type of variable 

The optional type identifier must be compatible with the type of 
variable to be initialized. 

? PAS214 Incorrect type of value element 

A constant appearing in a VALUE initialization has a type other 
than that of the variable, record field, or array element to be 
initialized. 

? PAS215 RMS record size must be a positive integer constant 

The record size specified in the OPEN procedure call was not a 
positive integer constant. 

? PAS216 "OLD" is not allowed for this file 

You cannot specify OLD for an internal file. 
? PAS217 Assignment to Conformant Array Index is not allowed 

You cannot make this assignment to a conformant array index. 
? PAS218 Array must be unpacked 

An array parameter to PACK or UNPACK is not unpacked correctly. 
? PAS219 Array must be packed 

An array parameter to PACK or UNPACK is not packed correctly. 
? PAS220 Packed bounds must not exceed unpacked bounds 

The bounds of the packed array exceed the unpacked bounds. 
? PAS224 "roVERLAIDl" expected 

The statement syntax requires the keyword [OVERLAID]. 

? PAS225 Illegal file attribute specification 

You specified an attribute in the OPEN statement that is not 
recognized by the compiler. 

? PAS226 Positional parameter not allowed after first non-positional 
parameter 

? PAS227 "OLD", "NEW", "READONLY", or "UNKNOWN" expected 

The statement syntax requires either the keyword OLD or NEW. 
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? PAS228 "SEQUENTIAL" or "DIRECT" expected 

The statement syntax requires either the keyword SEQUENTIAL or 
DIRECT. 

? PAS229 "FIXED or "VARIABLE" expected 

The statement syntax requires either the keyword FIXED or 
VARIABLE. 

? PAS230 "NOCARRIAGE" , "NONE", "CARRIAGE", "FORTRAN", or "LIST" 
expected 

The statement syntax requires one of the following keywords: 
NOCARRIAGE, NONE, CARRIAGE, FORTRAN, or LIST. 

? PAS231 Illegal keyword 

This keyword cannot be specified in this context. 
? PAS232 Parameter has already been specified 

You have specified the same parameter twice. 
? PAS233 File variable must be specified 

You forgot to specify the file variable. 
? PAS234 Identifier or character string literal expected 

You need to specify a identifier or character string literal. 
? PAS235 Parameter cannot be specified in this position 

You specified a parameter that did not belong in this place. 

? PAS237 A "NEW" and "DIRECT" file must have fixed-length records 

You specified variable- 1 eng th records for a file that must have 
fixed-length records. 

? PAS238 Record type may not be "VARIABLE" for "DIRECT" files 

You cannot have variable length records for a DIRECT file. 

? PAS239 %INCLUDE file not found. Compilation aborted. 

? PAS240 Include/Exclude file error. Compilation aborted. 

? PAS250 Too many nested scopes of identifiers 

You can have only 20 levels of nesting. A new nesting level 
occurs with each block or WITH statement. 

? PAS251 Too many nested procedures and/or functions 

Subprograms can be nested no more that 20 levels deep. 

? PAS252 Assignment to function not allowed here. Probable name 
scope conflict 

A function is nested within a function with the same name. 
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? PAS253 Too many arguments in an "OPEN" statement 

You specified too many arguments. 

? PAS255 Too many errors on this source line 

The PASCAL compiler diagnoses only the first 20 errors on each 
source line. 

? PAS259 Expression too complicated 

The expression is too deeply nested. To correct this error, you 
should separately evaluate some parts of the expression. 

? PAS261 Declarations out of order or repeated declaration sections 

The declarations must be in the following order: labels, 
constants, types, variables, values, and subprograms. Only the 
main program can contain value declarations. 

? PAS264 Only "VAR" parameters allowed for "[FORTRAN]" declared 
routines 

You cannot specify value parameters for [FORTRAN] declared 
routines . 

? PAS265 Parameter not allowed for "[FORTRAN]" declared routines 

This type of parameter is not allowed for [FORTRAN] declared 
routines . 

? PAS266 Conformant part of Conformant arrays can have only one 
dimension packed 

You packed more than one dimension in a conformant array part. 

? PAS267 Conformant arrays must be of the same type 

When using relational operators with conformant arrays, the array 
types must be equivalent. 

? PAS300 Division by zero 

The program attempts to divide by zero. 

? PAS302 Index expression out of bounds 

The value of the expression is out of range for the array element 
to which you are assic^ning it. 

? PAS303 Value to be assigned is out of bounds 

The value to the right of the assignment operator is out of range 
for the variable to which it is being assigned. 

? PAS304 Set element expression out of range 

The value of the expression is out of range for the set element 
to which you are assigning it. 

? PAS305 Field width must be greater than zero. 
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? PAS306 Index type of conformant array parameter exceeds range of 
declaration 

The index type of the actual conformant array parameter extends 
beyond the range declared in the formal parameter list. 

? PAS307 Modulus with zero or negative value 

The program tried to take the mod of zero. 

? PAS309 Variable space exceeds low segment memory size, 377777 
(octal) 

? PAS310 Code space exceeds available address space, 777777 (octal) 



Compi 1 e-Time Warnings 

% PAS401 Identifier exceeds, 31, characters 

Identifiers can be any length, but PASCAL scans only the first 31 
characters for uniqueness. 

% PAS402 Error in option specification 

A compiler option is incorrectly specified in the source code. 

% PAS403 Source input after "END." ignored 

The compiler ignores any characters after the END that terminates 
the program. 

% PAS404 Duplicate external procedure name 

Two external procedures or functions have been declared with the 
same name. They refer to the same externally compiled 
subprogram. 

% PAS405 LABEL declaration in MODULE ignored 

The compiler ignores label declarations at the outermost level in 
a module. 

% PAS407 Illegal option on include file specification; LIST assumed 

You specified an option that is not available. 

% PAS408 One or more parameter values assumed before "param" 

% PAS409 Alternative ordering of HISTORY and RECORDLENGTH parameters 

% PAS410 Parameter type is not known by FORTRAN. 

% PAS413 Case label out of range 

% PAS450 Nonstandard PASCAL: Exponentiation 

% PAS451 Nonstandard PASCAL: VALUE declaration 

% PAS452 Nonstandard PASCAL: OTHERWISE clause 

% PAS453 Nonstandard PASCAL: %INCLUDE directive 

% PAS454 Nonstandard PASCAL: MODULE declaration 

% PAS455 Nonstandard PASCAL: Label exceeds 9999 

% PAS456 Nonstandard PASCAL: "$" or "" in identifier 
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% PAS457 Nonstandard PASCAL: 



% PAS458 

% PAS459 

% PAS460 

% PAS461 

% PAS4fS2 

% PAS463 

% PAS464 

% PAS465 

% PAS466 

% PAS467 

% PAS468 

% PAS469 

% PAS470 

% PAS4'71 

% PAS472 

% PAS473 

% PAS474 

% PAS475 

% PAS476 



Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 

Nonstandard PASCAL; 



Nonstandard 
Nonstandard 

Nonstandard 
Nonstandard 

Nonstanda rd 

Nonstandard 

Nonstandard 
Nonstandard 

Nonstandard 
Nonstandard 



PASCAL; 
PASCAL; 

PASCAL; 
PASCAL; 

PASCAL; 

PASCAL; 

PASCAL; 
PASCAL; 

PASCAL; 
PASCAL; 



% PAS477 Nonstandard PASCAL 



% PAS478 

% PAS479 

% PAS480 

% PAS481 



Nonstandard 
Nonstandard 

Nonstandard 
Nonstandard 



PASCAL; 
PASCAL; 

PASCAL; 
PASCAL; 



Conformant passed to value conformant 

a rray 

Directive " TGLOBAL] " or "[FORTRAN]" 

Binary, octal or hexadecimal constant 

Double precision constant 

External procedure declaration 

Binary, octal or hexadecimal data 

output 

Output of user-defined scalar 

Input of string or user-defined scalar 

Input/output of double precision data 

Implementation-defined type, function, 

or procedure 

Directive "[OVERLAID]" 

Formal and actual parameters not of 

identical type 

Control variable is not local 

Formal and actual parameters not 

packed or unpacked 



both 
thi s 
this 



No parameter list declared for 

call 

No parameter list declared for 

format 

Nonstandard parameter declaration 

Array or record types not identical in 

assignment 

Types not identical in comparison 

VAR parameter is selector of variant 

record 

Parameter is pre-defined procedure 

function 

NIL used as constant identifier 

Case constants do not cover range 

tag- type 

Input/output of conformant string 

Comparison of conformant strings 



or 



of 
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APPENDIX B 
ASCII CHARACTER SET 



Table B-1 : The AE5CIT Character Set 



ASCII Character Meaning 

Decimal 

Number 



NUL Null 

1 SOH Start of heading 

2 STX End of text 

3 ETX End of text 

4 EOT End of transmission 

5 ENQ Enquiry 

6 ACK Acknowledgement 

7 BEL Bell 

B BS Backspace 

9 HT Horizontal tab 

10 LF Line feed 

11 VT Vertical tab 

12 FF Form feed 

13 CR Carriage return 

14 SO Shift out 

15 SI Shift in 

16 DLE Data link escape 

17 DCl Device control 1 

18 DC2 Device control 2 

19 DC3 Device control 3 

20 DC4 Device control 4 

21 NAK Negative acknowledgement 

22 SYN Synchronous idle 

23 ETB End of transmission block 

24 CAN Cancel 

2 5 EM End of medium 

26 SUB Substitute 

27 ESC Escape 

28 FS File separator 

29 GS Group separator 

30 RS Record separator 

31 US Unit separator 

32 SP Space or blank 

33 ! Exclamation mark 

34 " Quotation mark 

35 # Number sign 

36 $ Dollar sign 

37 % Percent sign 

38 % Ampersand 

39 ' Apostrophe 

40 ( Left parenthesis 
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ASCII CHARACTER SET 



Table B-1: The ASCII Character Set (Cont.) 



ASCII 


Character 


Decimal 




Number 




41 


) 


42 


* 


43 


+ 


44 


r 


45 


- 


46 


. 


47 


/ 


48 





49 


1 


50 


2 


51 


3 


52 


4 


53 


5 


54 


6 


55 


7 


56 


8 


5 7 


9 


58 


: 


59 


/ 


60 


< 


61 


= 


62 


> 


63 


7 


64 


@ 


65 


A 


66 


B 


67 


C 


68 


D 


69 


E 


70 


F 


71 


G 


7 2 


H 


73 


I 


74 


J 


75 


K 


76 


L 


77 


M 


78 


N 


79 





80 


P 


81 


Q 


82 


R 


83 


S 


84 


T 


85 


U 


86 


V 


87 


W 


88 


X 


89 


Y 


90 


Z 


91 


[ 


92 




93 


] 


94 


or 


95 


or 



Meaning 



Right parenthesis 

Asterisk 

Plus sign 

Comina 

Minus sign or hyphen 

Period or decimal point 

Slash 

Ze ro 

One 

Two 

Three 

Four 

Five 

Six 

Seven 

Eight 

Nine 

Colon 

Semicolon 

Left angle bracket 

Equal sign 

Right angle bracket 

Question mark 

At sign 

Upper case A 

Upper case B 

Upper case C 

Upper case D 

Upper case E 

Upper case F 

upper case G 

upper case H 

Upper case I 

Upper case J 

Upper case K 

Upper case L 

Upper case M 

Upper case N 

Upper case 

Upper case P 

Upper case Q 

Upper case R 

Upper case S 

upper case T 

Upper case U 

Upper case V 

Upper case W 

Upper case X 

Upper case Y 

Upper case Z 

Left square bracket 

Back slash 

Right square bracket 

Circumflex or up arrow 

Back arrow or underscore 
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ASCII CHARACTER SET 



Table B-1: The ASCII Character Set (Cont.) 



ASCII Character Meaning 

Decimal 

Number 



96 

97 a 

98 b 

99 c 

100 d 

101 e 

102 f 

103 g 

104 h 

105 i 

106 j 

107 k 

108 1 

109 m 

110 n 

111 o 

112 p 

113 q 

114 r 

115 s 

116 t 

117 u 

118 V 

119 w 

120 X 

121 y 
12 2 z 

123 { 

124 I 

125 } 
126 

127 DEL 



Grave 


accent 


Lower 


case 


a 


Lower 


case 


b 


Lower 


case 


c 


Lower 


case 


d 


Lower 


case 


e 


Lower 


case 


f 


Lower 


case 


g 


Lower 


case 


h 


Lower 


case 


i 


Lower 


case 


1 


Lower 


case 


k 


Lower 


case 


1 


Lower 


case 


m 


Lower 


case 


n 


Lower 


case 


o 


Lowe r 


case 


P 


Lower 


case 


q 


Lower 


case 


r 


Lower 


case 


s 


Lower 


> case 


t 


Lower 


case 


u 


Lower 


case 


V 


Lower 


case 


w 


Lower 


case 


X 


Lower 


case 


y 


Lower 


case 


z 


Left brace 




Vertical 1; 


Lne 


Right 


brace 


Tilde 






Delete 
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APPENDIX C 
SYNTAX SUMMARY 



This appendix summarizes the syntax of the PASCAL-20 language in the 
Backus-Naur Form (BNF) : 



C.l BACKUS-NAUR FORM 

In the BNF, each element of the language is defined recursively in 
terms of simpler elements. The element being defined is written to 
the left of the symbol ;:= and its definition is written to the right 
of that symbol . 

The BNF uses a group of metasymbols that differ from the conventions 
used in the rest of this manual and are not part of the PASCAL 
language. Table C-1 lists the meta-symbols used in the BNF. 

Table C-1: BNF MetaSymbols 

Symbol Meaning 

: := Separates the element being defined from its 

def ini tion. 

< > Encloses a definable language element. 

[ ] Encloses an optional element. 

I Means "or"; separates possible elements. 

{ } Encloses elements that may be repeated one or more 

times, but need not be present 

The remainder of this section lists PASCAL in BNF. 

<compilation unit> ::= <program> I <module> 

<module> : := <module heading> <global declaration part> 

<procedure and function declaration part> END . 

<program> : := <program heading> <block> . 

<module heading> : := <module word> <identifier> ; I 

<module word> <identifier> ( <program parameters> ) ; 
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SYNTAX SUMMARY 



<global declaration part> ::= <]abel declaration part> 

<constant definition part> 
< type definition part> 
<variable declaration part> 

<module word> ::= MODULE I f TOVERLAIDl 1 MODULE 

<program heading> ::= <prograin word> <identifier> ; I 

<program word> <identifier> ( <program parameters> ) ; 

<program parameters> ::= <external file identifier> 
{ , <external file identifier> } 

<external file identifier> ::= <identifier> 

<program word> ::= PROGRAM I [ roVERLAID] 1 PROGRAM 

<identifier> ::= <identifier head> {<]etter or digit> I _ I $} 

<identifier head> ::= <letter> I _ I $ 

<letter> ::=A|B!C|DlE|F|G|H|l|JlK|L|M| 
NiOlPlQiRlSlTlUlVlWlXlYlZl 
alblcldlelflglhliljlklllml 
n|oIp|q!r|s|t|ulv|wIx|y!z 

<digit>::=,0 |1 12 |3 |4 |5 16 [7 |8 |9 

<special syinbol> ::= <operator symbol> I <reserved word> I 
<semi reserved word> I <inc]ude symbol> 

<operator symbol> : := + | - | * | / | = | <> | < | > | <= | >= 

I { i ) I r I 1 I { I } I := I . I , I ; I : I ' 
I ^ I ** I .. I @ I (* ! *) I (. ! .) 

<reserved word> : := DTV ! MOD | NIL I IN | OR I AND I NOT I IF 

I THEN I ELSE I CASE I OF | REPEAT | UNTIL I WHILE 
I DO I FOR I TO I DOWNTO I BEGIN I END I WITH I GOTO 
I CONST I VAR I TYPE I ARRAY I RECORD I SET I FILE 
I FUNCTION I PROCEDURE I LABEL I PACKED I PROGRAM 

<semireserved word> ::= REM ! OTHERWISE I MODULE I VALUE 

<include symbol> : := %INCLUDE 

<blanl<> : := <single blank> { <single blank> } 

<single blank> ::= <space character> I <tab character> 

<block> ::= <declaration part> <value initialization part> 

<procedure and function declaration part> <statement part> 

<declaration part> : := <label declaration part> <constant declaration 
part> <type declaration part> <variable declaration part> 

<label declaration part> : := <empty> I LABEL <label> { , <label> } ; 

<label> ::= <unsigned integer> 

<constant definition part> ::= <einpty> I 

CONST <constant definition> { ; <constant definition> } ; 

<constant definition> ::= <identifier> = <constant> 
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<constant> ::= <unsigned number> I <sign> <unsigned number> I 

<cons1;ant identifier> | <sign> <constant identifier> I 
<string> I NIL 

<unsigned number> ::= <unsigned integer> I <unsigned real> 

<unsigned integer> ::= <digit sequence> I <radix integer> 



<radix integer> :;;= % <octal integer> 

% <binary integer> 



<hex integer> ! 



<octal integer> :::= <]etter o> ' <octal digit sequence> ' 

<letter o> : := 1 o 

<octal digit sequence> ::= <octal digit> { <octal digit> } 

<octal digit> ::=0|l|2l3|4!5|fi|7 

<hex integer> ::= <letter x> ' <hex digit sequence> ' 

<letter x> : := X | x 

<hex digit sequence> ::= <hex digit> { <hex digit> } 

<hex digit> : := <digit> |A|BlC|D|E|F|a!b|c| 

I e I f 

<binary integer> :;:= <letter b> ' <binary digit sequence> ' 

<letter b> : := B 1 b 

<binary digit sequence> : ::= <binary digit> { <binary digit> } 

<binary digit> : :- I 1 

<unsigned real> : := <unsigned single> ! <unsigned double> 

<unsigned sing!le> : := <digit sequence> . <digit sequence> I 



<digit 
<digit 
< d i g i t; 
<digit 



sequence> . <digit sequence> E <scale factor> 

sequence> . <digit sequence> e <scale factor> 

sequence> E <scale factor> I 

sequence> e <scale factor> 



<unsigned double> : := <digit sequence> . <digit sequence> D <scale 

factor> I <digit sequence> . <digit sequence> d <scale 

factor> I <digit sequence> D <scale factor> I 

<digit sequence> d <scale factor> 

<digi t .sequence> ::= <digit> { <digit> } 

<scale factor> : :=== <digit sequence> I <sign> <digit sequence> 

<sign> : := + | - 

<constant identif ier> : := <identifier> 

<string> : := ' <character> { <character> } ' 

<character> : := <.any ASCII character except '> I '' 

<type definition part> : :== <empty> I 

TYPE <type definition> { ; <type definition> } ; 
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<type definition> : := < idenl:i f i er> = <type> 

<type> : := <simp]e type> I <structured type> | <pointer type> 

<simple type> ::= <scalar type> I <subrange type> I <type identifier> 

<scalar type> ::= ( <identifier> { , <identifier> } ) 

<subrange type> ::= <constant> .. <constant> 

<type identifier> ::= < ident: i f i er> 

<structured type> ::= <unpacked structured type> | 
PACKED <unpacked structured type> 

<unpacked structured type> ::= <array type> I <record type> | 
<set type> I <file type> 

<array type> ::= ARRAY \ <index type> { , <index type> } 1 OF 
<component type> 

<index type> : := <simple type> 

<component type> ::= <type> 

<record type> : := RECORD <f ield list> END 

<field list> : := <fixed part> I <fixed part> ; <variant part> I 
<variant part> 

<fixed part> ::= <record section>{ ; <record section> } 

<record section> ::= <einpty> I 

<field identifier> { , <fie1d identifier> } : <type> 

<variant part> : := CASE <tag field> <type identifier> OF 
<variant> { ; <variant> } 

<tag field> ::= <field identifier> : I <empty> 

<variant> ::= <case label list> : ( <field list> ) | <empty> 

<case label list> ::= <case label> { , <case label> } 

<case label> : := <constant> 



<set type> 
<base type> 
<file type> 



= SET OF <base type> 
:= <simple type> 
:= FILE OF < type> 



<pointer type> 



<type identifier> 



<variable declaration part> : := <einpty> I 

VAR <variable declaration> { ; <variable declaration> } ; 

<variable declaration> : := <identifier list> : <type> 
I <identifier list> : <type> := <value> 

<identifier list> : := <identifier> { , <identifier> } 

<value initialization part> : := VALUE <value initial iza tion> 

{ ; <value initial iza tion> } ; I <empty> 
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<va]ue ini tial i za 1: ion> ::~ <identifier> := <value> 

<value> ::= <const:ant> ! <set constant> ! <construc tor> 

<set constant> ::== [ <constant element list> 1 

<constant element list> ::= <empty> I 

<constant element> { , <constant element> } 

<constant element> : := <constant> I <constant> . . <constant> 

<construc tor> ::= <optional type> ( <value element> 

{ , <value element> } ) 

<optional type> :::= <empty> I <type ;Ldentifier> 

<value element> : ::= <value> I < repetition factor^ OF <value> 

<repetition factor> ::= <unsigned integer> I <constant identifier^ 

<procedure or function declaration part> ::= 

{ <procedure or function declaration> ; } 

<procedure or function declaration> ;::= <procedure declaration> I 
<function declaration> 

<procedure declaration> : := <internal procedure declaration> I 
<external procedure declaration> I 
<forward procedure declaration> 

<interna] procedure declaration> ::= <procedure heading> <block> I 

rrCLOBAL]] <procedure heading> <block> I 
[[FORTRAN]] <procedure heading> <block> 

<external procedure declaration> ::= <procedure heading> EXTERN I 

<procedure heading> EXTERNAL ! <procedure heading> FORTRAN 

<forward procedure declaration> : := <procedure lieading> FORWARD 

[ TGLOBAL] ] <procedure heading> FORWARD I 
[[FORTRAN]] <procedure heading> FORWARD 

<procedure heading> ::= PROCEDURE <identifier> ; I 

PROCEDURE <identifier> ( <formal parameter section> 
{ ; <formal parameter section> } ) ; 

<formal parameter section> : := <extended parameter group> I 
VAR <extended parameter group> I 
FUNCTION <parameter group> I 

PROCEDURE <identifier> { „ <identifier> } I 
<procedure heading> I <function heading> 

<extended parameter group> : := <parameter group> I 

<identifier> { , <identifier> } : <conformant array schema> 

<conformant array schema> :;= ARRAY [ <index type speci f ication> 

{ ; <index type speci fication> } ] OF <type identifier> I 

ARRAY [ <index type speci fication> 

{ , <index type speci fication> } ] OF <conformant array 

schema> PACKED ARRAY [ <index type speci fication> ] 

OF <type identifier> 

<index type speci fication> ::= <identifier> .. <identifier> : 

<scalar type identifier> 
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<scalar type identifier> : :- < ident i f ier> 

<paraneter group> ::= <identifier> ( , <identifier> } : 

<type identifier> 

<function declaration> ::= <internal function declaration> ! 

<external function declaration> I 
<forward function declara tion> 

<intei:nal function declaration> ::= <function heading> <block> I 

[GLOBAL] <function heading> <block> I 
rpORTRANl <function headinq> <block> 

<external function declaration> ::= <function heading> EXTERN ! 

<f unction heading> EXTERNAL I <function heading> FORTRAN 

<forward function declaration> ::= <function heading> FORWARD I 

[GLOBAL] <f unction heading> FORWARD I 
[FORTRAN] <function heading> FORWARD 

<function heading> ::= FUNCTION <identifier> : <result type> ; I 

FUNCTION <identifier> ( formal parameter section> 
{ ; <forma] parameter section> } ) : <result type> ; 

<result type> ::= <type identifier> 

<statement part> ::= <compound statement> 

<statement> ::= <unlabe]ed statement> I <label> : <unlabeled statement> 

<un]abeled statement> ::= <simple statement> I <structui:ed statement> 

<simple statement> ::= <assignment statement> I <procedure statement> I 

<go to statement> I <empty statement> 

<assignment statement> ::= <variable> := <expression> I 

<function identifier> := <expression> 

<variable> ::= <entire variable> ! <component variable> I 

<referenced variable> 

<entire variable> ::= <variable identifier> 

<variable identifier> ::= <identifier> 

<component variable> ::= <indexed variable> | <field designator> I 

<file buffer> 

<indexed variable> ::= <array variable> r <expression> 

{ , <expression> } ] 

<array variable> ::= <variable> 

<field designator> ::= <record variable> . <field identifier> 

<record variable> : := <variable> 

<field identifier^ ::= <identifier> 

<file buffer> : := <file variable> 

<file variable> ::= <variable> 
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<referenced variable> ::= <pointer variable> 

<pointer variable> : := <variable> 

<expression> ::= <simple expression> I <simple expression> 

<relational operator> <simple expression> 

<relational operator> : := = I <> I < ! <= I >= I > I IN 

<simple expression> ::= <term> | <sign> <term> | 

<simple expression> <adding operator> <term> 

<adding operator> ::= + | - | OR 

<term> : := <priinary> I <term> <multiplying operator> <primary> 

<multiplying operator> : := * I /I DIV I MOD | AND | REM 

<primary> : := <factor> I <primary> ** <factor> 

<factor> : := <variable> I <unsigned constant> I ( <expression> ) I 

<function designator> I <set> I NOT <factor> 

<unsigned constant> ::= <unsigned number> I <string> I 

<constant identifier> I NIL 

<function designa1:or> ::= <function ;Ldentifier> I 

<function identifier> ( <actual parameter> 
{ , <actual paraineter> } ) 

<function identifier> ::= <identifier> 

<set> ::= [ <element list> ] 

<element list> : :== <element> { , <element> } I <enipty> 

<eleinent> ::= <expression> 1 <expression> .. <expression> 

<procedure statement> ::= <procedure identifier> I 

<procedure identifier> ( <actual paraineter> 
{ , <actual paraineter> } ) 

<procedure identifier> : := <identifier> 

<actual paraineter> : := <expression> I 

<procedure identifier> I <function identifier> 

<go to statement> : := GOTO <label> 

<empty statemen;t> : := <empty> 

<empty> : := 

<structured staternient> : := <compound statement> I 

<conditional statement> I <repetitive stateinent> 
<with statement> 

<compound statement> ; := BEGIN <statement> { ; <statement> } END 

<conditional statement> : := <if statement> I <case statement> 

<if statement> : :== IF <expression> THEN <statement> I 

IF <expression> THEN <statement> ELSE <statement> 
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<case statement> ::= CASE <expression> OF <case list element> 

f ; <case list element> } <otherwise part> <end case> 

<case list element> ::= <case label ] ist> : <statement> I <empty> 

<otherwise part> ::= <empty> I 

OTHERWISH: <statement> { ; <statement> ] I 
; OTHERWISE <statement> { ; <stateinent> } 

<end case> ::= END I ; END 

<repetitive statement> ::= <while stateinent> | <repeat statement> I 

<for statement> 



<while statement> 



WHILE <expression> DO <statement> 



<repeat statement> : := REPEAT <statement> { ; <statement> } 

UNTIL <expression> 



<for statement> ::= FOR <contro] variab]e> 



<for ]ist> DO <statement> 



<for list> ::= <initial value> TO <final value> I 

<initial value> DOWNTO <final value> 

<control variable> ::= <identifier> 

<initial value> ::= <expression> 

<final value> ::= <expression> 

<with statement> ::= WITH <record variable list> DO <stateinent> 

<record variable list> ::= <record variable> { , <record variable> } 

<open statement> ::= OPEN ( <open parameters> ) 

<open parameters> ::= <file paraineters> 

I <keyword parameters> { , <keyword parameters> } 

<keyword parameters> ::= FILE_VARIABLE := <file variable> 

FILE_NAME := <file name> 
HISTORY := <file status> 
RECORD_LENGTH := <record length> 
ACCESS_METHOD := <record access mode> 
RECORD_TYPE := < record type> 
CARRIAGE_CONTROL := <carriage control> 

<file name> : := <variable> I <constant identifier> 

I ' <file specif ication> ' 

<file status> : := OLD I NEW I UNKNOWN | READONLY 

<record length> : := <unsigned integer> 

<record access mode> : := SEQUENTIAL I DIRECT 

<record type> : := VARIABLE I FIXED 

<carriage control> ::= CARRIAGE I NOCARRIAGE I LIST 
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<file parameters> ::= <file variable> <RMS file speci f ication> 

<RMS fi:ie history> <RMS record length> 
<RMS record access mode> 
<RMS record type> 
<RMS carriage control> 

<RMS file speci fication> ::= , ' <file speci fication> ' I <empty> 

<RMS record length> ::= , <record length> I <empty> 

<RMS file history> : := , <file status> | <einpty> 

<RMS record access mode> ::= , <record access mode> I <einpty> 

<RMS record type^ : := , <record type> | <empty> 
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APPENDIX D 
SUMMARY OF PASCAL-2(D EXTENSIONS TO PROPOSED ISO STANDARD 



Category 



Extension 



Lexical and 
syntactical 



Predefined types 
Predeclared Procedures 



READ, READLN, WRITE, 
and WRITELN extensions 



READ, READLN, WRITE, 
and WRITELN extensions 

Declarations 

Statements 

Procedures and Functions 



Compilation 



Semireserved words: MODULE, OTHERWISE, 
REM 

Exponentiation operator (**) 

REM operator 

Binary, hexadecimal, and octal notation 
for integers 

Double-precision real data type 

Dollar sign ($) and underscore (_) 
characters in identifiers 

Identifiers of up to 31 characters 

SINGLE, DOUBLE 

CLOSE, DATE, FIND, HALT, LINELIMIT, 
OPEN, TIME, MARK, RELEASE 

Parameters of character string and 
enumerated types for READ and READLN 

Parameters of enumerated types for WRITE 
and WRITELN 

Optional carriage-control specification 
for text files with WRITE and WRITELN 

Variable initialization 

OTHERWISE clause in CASE statement 

External procedure and function 
declaration 

Support for calling externally declared 
FORTRAN subroutines and for declaration 
of PASCAL subroutines that can be called 
by FORTRAN 

MODULE capability for combining 
declarations and definitions to be 
compiled independently from the main 
program 
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APPENDIX E 
ISO COMPLIANCE 



This appendix is a statement of the compliance of PASCAL-20 with the 
PASCAL standard ISO 7185. It is divided into four sections: 

1. Implementation-defined features. This is a list of the 
features of PASCAL that must be defined by each 
implementation, but which may vary between implementations. 

2. Implementation-dependent features. This is a list of the 
features of PASCAL which may or may not be defined by an 
implementation. 

3. Errors. This is an explanation of how PASCAL-20 handles each 
of the errors defined by ISO 7185. 

4. Exceptions and restrictions. This is a list of violations of 
the standard which PASCAL-20 does not detect, and 
restrictions imposed by PASCAL-20. 

This appendix doess not list extensions to the ISO "^185 standard 
implemented by PASCAL-20. These extensions are listed in Appendix D. 



E.l IMPLEMENTATION-DEFINED FEATURES 

The ISO 7185 standard leaves the exact definition of a number of 
language elements up to the implementation. Following is a list of 
those features, and the definition given them by PASCAL-20. 

1. The predefined type CHAR corresponds to the 7-bit ASCII 
character set. 

2. The identifier MAXINT denotes a value of 2**35-1, which is 
the maximum integer value of a PDP-10 word. 

3. In a WRITE or WRITELN statement, the default field-width for 
integers is 10, for real numbers is 16, and for Booleans is 
16. The number of digits written in the exponent of a 
floating-point format real is 2. On output to a text file, 
the Boolean values TRUE and FALSE are translated to the 
uppercase character strings "TRUE" and "FALSE" respectively. 
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4. A program parameter that is a file variable is bound at 
runtime to an external (operating system) file. An external 
fi]e may exist prior to execution of the program and is not 
deleted when the program exits. PASCAL-20 determines which 
file specification to use when opening the file in the 
following manner: 

• If an OPEN statement is executed prior to a RESET or 
REWRITE of the file, the file specification given in the 
OPEN statement is used. 

• If no OPEN statement is executed, the RESET or REWRITE 
looks for a logical name with the same name as the file 
variable. If it finds the logical name, that name is 
used as the file specification. 

• Otherwise, the variable name is used as the file name, 
and an extension of .DAT is assumed. 

The ISO 7185 standard also states that the precise actions of the I/O 
procedures REWRITE, PUT, RESET, GET, and PAGE are implementation 
defined. In the following items, F is assumed to be a file variable, 
and the various pre- and post assertions for each operation are 
assumed to be true. 

1. REWRITE(F) creates or supersedes an operating system file, 
and opens the file for writing. 

2. PUT(F) , where F is a text file, writes the contents of the 
file buffer variable to the output buffer, and advances the 
buffer pointer; no file operation is performed. 

3. PUT(F) , where F is not a text file, writes the contents of 
the file buffer variable to the file. 

4. RESET(F) opens an existing operating system file for reading, 
reads the first record, and assigns a value to the file 
buffer variable. 

5. GET(F) , where F is a text file, advances the file input 
buffer pointer. If EOLN{F) is true, the next record is read 
from the file, and the buffer pointer is reset to the 
beginning of the buffer. 

6. GET{F) , where F is not a text file, reads the next record 
from the file. 

7. PAGE{F) first flushes the output buffer to the file. Then, 
it causes the file to skip to the top of the next page; the 
mechanics of this depend on the setting of the file's 
carriage-contro] attribute. If this attribute is LIST (the 
default), a form feed character (control-L) is written to the 
file. If the attribute is CARRIAGE or FORTRAN, a '1' is 
written to the file. If the attribute is NOCARRIAGE or NONE, 
an error is generated. 
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E.2 IMPLEMENTATION-DEPENDENT FEATURES 

These language elements are defined by the ISO 7185 standard as 
"possibly differing between processors and not necessarily defined for 
any particular processor," Following is a description of how PASCAL-20 
treats each of these elements. 

1. The order of evaluation of array indices is their lexical 
order (that is, left to right). 

2. The order of evaluation of members of a set constructor is 
their lexical order (that is, left to right). 

3. The order of evaluation of the operands of a dyadic operator 
(for example, '+') depends on the complexity of each operand. 
Both operands are always evaluated (even in Boolean 
expressions which could be "short-circuited"). 

4. The order of evaluation, accessing, and binding of actual 
parameters to formal parameters in a procedure or function 
call is their lexical order (that is, left to right). 

5. The variable in an assignment statement is accessed after the 
evaluation of the expression. 

6. The effect of reading a file at the point where a PAGE was 
executed when writing the file is to return either a 
form-feed character (control-L) or the digit '1', depending 
on the status of the file when the PAGE was executed. (See 
above for a description of PAGE'S actions.) 

7. Program parameters which are not file variables have no 
defined meaning in PASCAL-20, and cause an error. 



E.3 ERROR HANDLING 

This section describes how the PASCAL-20 compiler and run-time system 
detect violations of level 1 of the standard proposed by the ISO for 
the PASCAL language. Errors detected at run time cause a program to 
terminate and return appropriate error messages. Errors described 
here as "not detected" cause a program to produce unexpected results. 

The type of an index value is not assignment compatible with the index 
type of an array., 

Explanation: Detected at run time if checking was enabled during 
compilation. 

The current variant changes while a reference to it exists. 

Explanation:; Not detected. An example of a reference to a 
variant is the passing of the variant to a formal 
VAR parameter. 

*rhe value of a variable to which a pointer refers (p) is NIL. 

Explanation;: Detected if checking was enabled at run time. 
The value of a variable to which a pointer refers (p) is undefined. 

Explanation;: Not detected. 
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The DISPOSE procedure is called to dispose of a heap-allocated 
variable while a reference to the variable exists. 

Explanation: Not detected. Examples of such references are: 
passing the variable or a component of it to a 
formal VAR parameter, or using the variable in a 
WITH statement (if the variable is a record) . 

The value of file f changes while a reference to f" exists. 

Explanation: Not detected. An example of a reference to f is 
the passing of f" by reference to a routine; until 
the routine has ceased execution, you may not 
perform any operation on file f. 

The ordinal type of an actual parameter is not assignment compatible 
with the type of the corresponding form.al parameter. 

Explanation: Detected at run time if checking was enabled during 
compilation of the called routine. 

The set type of an actual parameter is not assignment compatible with 
the type of the corresponding formal parameter. 

Explanation: Detected at run time if checking was enabled during 
compilation of the called routine. 

A file is not in Generation mode when a PUT, WRITE, WRITELN, or PAGE 
procedure is attempted. 

Explanation: Detected at run time. 

A file is in Undefined mode when a PUT, WRITE, WRITELN, or PAGE 
procedure is attempted. 

Explanation: Detected at run time. 

The result of an EOF function is not TRUE when a PUT, WRITE, WRITELN, 
or PAGE procedure is attempted. 

Explanation: Detected at run time. 

The value of the file buffer variable is undefined when a PUT 
procedure is attempted. 

Explanation: Not detected. 

A file is in Undefined mode when a RESET procedure is attempted. 

Explanation: Not detected. 

A file is not in Inspection mode when a GET, READ, or READLN procedure 
is attempted . 

Explanation: Detected at run time. 

A file is in Undefined mode when a GET, READ, or READLN procedure is 
attempted . 

Explanation: Detected at run time. 

The result of an EOF function is TRUE when a GET, READ, or READLN 
procedure is attempted. 

Explanation: Detected at run time. 
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The type of the file buffer is not assignment compatible with the type 
of the variable that is a parameter to a READ or READLN procedure. 

Explanation: Detected at run time if checking is enabled during 
compilation at the READ or READLN. 

The type of the expression being written by a WRITE or WRITELN 
procedure is not assignment compatible with the type of the file 
buffer variable. 

Explanation: Detected at run time if checking is enabled during 
compilation of the WRITE or WRITELN. 

The current variant does not exist in the list of variants specified 
with the NEW procedure. 

Explanation: Not detected. 

The DISPOSE (p) procedure is called to deallocate a pointer variable 
that was created using the variant form of the NEW procedure. 

Explanation: Not detected. 

The variant form of the DISPOSE procedure does not specify the 
disposal of the same number of variants that were created by the 
variant form of the NEW procedure. 

Explanation: Not detected. 

The variant form of the DISPOSE procedure does not specify the 
disposal of the same variants that v^ere created by the variant form of 
the NEW procedure. 

Explanation: Not detected. 
The value of the parameter to the DISPOSE procedure is NIL. 

Explanation; Detected at run time. 
The value of the parameter to the DISPOSE procedure is undefined. 

Explanation;; Usually detected at run time. 

A variant record created by the NEW procedure is accessed as a whole, 
rather than one component at a time. 

Explanation;; Not detected. 

In the PACK (a, i,'/) procedure, the type of the index value i is not 
assignment compatible with the index of a. 

Explanation:: Not detected. 

The PACK procedure is attempted when the value of at least one 
component of a is undefined. 

Explanation: Not detected. 

The index value i in the PACK procedure is greater than the upper 
bound of the index of a. 

Explanation: Not detected. 



E-5 



ISO COMPLIANCE 

In the UNPACK ( z , i ,a) procedure, the type of the index value i is not 
assignment compatible with the index type of a. 

Explanation: Not detected. 

The index value i in the UNPACK procedure is greater than the upper 
bound of the index type of a. 

Explanation: Not detected. 

The UNPACK procedure is attempted when the value of at least one 
component of z is undefined. 

Explanation: Not detected. 
The resulting value of SQR{X) does not exist. 

Explanation: Detected at run time. 
In the expression LN(X), the value of X is negative. 

Explanation: Detected at run time. 
In the expression, SQRT(X), the value of X is negative. 

Explanation: Detected at run time. 

The resulting value of TRUNC(X) does not exist after the following 
calculations have been done: if the value of X is positive or zero, 
then <= X-TRUNC (X) <1; otherwise, -1 < X-TRUNC (X) <--= 0. 

Explanation: Detected at run time. 

The resulting value of ROUND(X) does not exist after the following 
calculations have been done: if the value of X is positive or zero, 
ROUND(X) is equivalent to TRUNC (X+0 . 5) ; otherwise, ROUND(X) is 
equivalent to TRUNC (X-0 . 5) . 

Explanation: Detected at run time. 
The resulting value of CHR(X) does not exist. 

Explanation: Not detected. 

The resulting value of SUCC(X) does not exist. 

Explanation: Detected at run time if checking was enabled during 
compilation. 

The resulting value of PRED(X) does not exist. 

Explanation: Detected at run time if checking was enabled during 
compilation. 

The function EOF(f) is called when the file f is undefined. 

Explanation: Detected at run time. 
The function EOLN(f) is called when the file f is undefined. 

Explanation: Detected at run time. 
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The function EOLN(f) is called when the result of EOF(f) is TRUE. 

Explanation: Detected at run time. 
A variable is not initialized before it is first used. 

Explanation: Not detected. 
In the expression X/Y , the value of Y is zero. 

Explanation: Detected at run time. 
In the expression I DIV J, the value of J is zero. 

Explanation: Detected at run time. 

In the expression I MOD J, the value of J is zero or negative. 

Explanation: Detected at run time if J is zero; not detected if 
J is negative. 

An operation or function involving integers does not conform to the 
mathematical rules for integer arithmetic. 

Explanation: Detected at run time. 

A function result is undefined when the function returns control to 
the calling block. 

Explanation: Not detected. 

The ordinal type of an expression is not assignment compatible with 
the type of the variable or function identifier to which it is 
assigned . 

Explanation: Detected at run time if checking was enabled during 
compilation. 

The set type of an expression is not assignment compatible with the 
type of the variable or function identifier to which it is assigned. 

Explanation: Detected at run time if checking was enabled during 
compilation . 

None of the case labels is equal in value to the case selector in a 
CASE statement. 

Explanation: Not detected. 

In a FOR statement, the type of the initial value is not assignment 
compatible with the type of the control variable, and the statement in 
the loop body is executed. 

Explanation: Detected at run time if checking was enabled during 
compilation. Assignment compatibility is not 
enforced if the statement in the loop body can 
never be executed. 
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In a FOR statement, the type of the final value is not assignment 
compatible with the type of the control variable and the statement in 
the loop body is executed. 

Explanation: Detected at run time if checking was enabled during 
compilation. Assignment compatibility is not 
enforced if the statement in the loop body can 
never be executed. 

When an integer is being read from a text file, the digits read do not 
constitute a valid integer value. (Initial spaces and end-of-line 
markers are skipped.) 

Explanation: Detected at run time. 

When an integer is being read from a text file, the type of the value 
read is not assignment compatible with the type of the variable. 

Explanation: Detected at run time. 

When a real number is read from a text file, the digits read do not 
constitute a valid real number. (Initial spaces and end-of-line 
markers are skipped.) 

Explanation: Detected at run time. 

The value of the file buffer variable is undefined when a READ or 
READLN procedure is performed. 

Explanation: Not detected. 

A WRITE or WRITELN procedure specifies a field width in which the 
integers representing the total width and the number of fractional 
digits are less than 1. 

Explanation: Detected at run time. 

The bounds of an array passed to a conformant array parameter are 
outside the range specified by the conformant array's index type. 

Explanation: Not detected. 



E.4 EXCEPTIONS AND RESTRICTIONS 

PASCAL-20 is not able to detect a number of violations of the ISO 7185 
standard. Violations that are not defined as errors are listed below. 

1. Statements threatening a FOR-loop control variable are not 
detected. A statement "threatens" a variable if it occurs 
within the FOR-loop or within a prior procedure, and if it is 
one of the following kinds of statements: 

• A READ or READLN statement containing the variable 

• An assignment statement with the variable to the left of 
the ' :=• 

• A procedure or function call with the variable as a 
formal VAR parameter 
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2. The concept of a "totally-undefined" variable has no meaning 
in PASCAL-20. Any violation of the standard which requires 
"totally-undefined" to be meaningful is not detected. 

3. Variant records in PASCAL-20 are implemented by overlaying 
the fields of the variants in the same memory. Changing the 
active variant does not alter the contents of that memory, 
and the fields of the newly-active variant are not undefined. 
Also, note that variant parts of records cannot be of the 
type FILE. 

4. The DISPOSE procedure does not cause its argument to become 
undefined, but rather the argument is set to NIL. 

5. No restrictions on the relative placement of labels and GOTO 
statements are enforced. 

6. Packed and unpacked sets are implemented in similar ways in 
PASCAL-20. Therefore, the compiler is very "loose" about 
interchanging packed and unpacked sets; the only requirement 
imposed on comipa tibil i ty of set types is that their base 
types must be compatible. 

7. Under certain conditions, a procedure call may be bound to 
the wrong procedure definition. This can only happen when 
two procedures are declared with the same name at different 
levels, and the inner procedure is called before it is 
declared. The following example illustrates this situation. 

f-'Rocedure: bj 

BE." GIN (* level 1 *) 
E-NDr 

prgce:i:iure cj 

F-ROCEriURE- Dr 

BEL' GIN 

B (^: call bound to level 1 procedure *) 

E-NDy 

p ROC Endure;: b? 

BEGIN (* level 2 *) 

END? 
BEGIN 
END? 

PASCAL-20 also imposes a number of restrictions on programs. These 
are : 

1. Identifiers may be of any length, but only the first 31 
characters are stored. Therefore identifiers in PASCAL-20 
must be unique in the first 31 characters. 

2. The ordinal values of the base type of a set type are limited 
to the range 0..255. This means that no set may have more 
than 256 elements. 

3. File variables are not permitted as fields in the variant 
part of a record. 

4. The range of ordinal values of case constants in a CASE 
statement must be less than 1000. 
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APPENDIX F 
DIFFERENCES BETWEEN PASCAL-20 AND VAX-11 PASCAL 



PASCAL-20 VI and VAX-11 PASCAL V2 are compatible languages; that is, 
you can compile and run a PASCAL-20 program on a VAX/VMS operating 
system, and you can compile and run a VAX-11 PASCAL program on a 
TOPS-20 operating system. However, there are differences between the 
languages . 

The VAX-11 PASCAL language (V2) contains features that the PASCAL-20 
language does not. Therefore, if you plan to transport PASCAL 
programs from the VAX/VMS operating system to the TOPS-20 operating 
system, you should avoid using these additional features. This 
appendix lists the additional features that VAX-11 PASCAL (V2) has 
over PASCAL-20 (VI) . 
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Table F-1 lists the language elements that VAX-11 PASCAL V2 has that 
PASCAL-20 does not: 



Table F-1: Additional Language Elements 



Category 



Language Element 



Special Symbol 
Nonstandard 
Reserved words 



Predeclared Identifiers 



Data Types 

Formal Parameter List 
Structured Type 
Real Types 

String Operators 
Predeclared Procedures 



Type cast operator 



%DESCR 

%IMMED 

%STDESCR 

%REF 

VARYING 

ADD_INTERLOCKED 

ADDRESS 

BITNEXT 

BITSIZE 

CLEAR_INTERLOCKED 

DBLE 

DELETE 

ESTABLISH 

FINDK 

INDEX 

TNT 

LENGTH 

LOCATE 

LOWER 

NEXT 

PAD 

QUAD 

QUADTRUPLE 

READY 

RESETK 



REVERT 

SET INTERLOCKED 

SIZE 

STATUS 

SUBSTR 

TRUNCATE 

UAND 

UFB 

UINT 

UNLOCK 

UNOT 

UNSIGNED 

UOR 

UPDATE 

UPPER 

GROUND 

UNTRUNC 

UXOR 

WRITEV 



UNSIGNED: through 2**32 
through 42949^7295 

foreign section 

VARYING OF CHAR 

G_f loating 
QUADRUPLE 

Plus sign {+) 

DELETE (f ,e) 
ESTABLISH(id) 
FINDK (f ,kn,kv,m,e) 
LOCATE (f ,n,e) 
READV(s,vl , . . . ,vn) 
RESTK(f ,kn,e) 
REVERT 

TRUNCATE (f ,e) 
UNLOCK (f ,e) 
UPDATE(f ,e) 
WRITEV{s,pl , . . . ,pn) 



- 1 
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Table F-1: Additional Language Elements (Cont.) 



Category Language Element 



Predeclared Functions See Table F-2 

OPEN Procedure DISPOSITION 

Parameters SHARING 

USER_ACTION 

ERROR 

KEYED 

CLOSE Procedure DISPOSITION 

Parameters USER_ACTION 

ERROR 



The following predeclared procedures are contained in both PASCAL 
languages, however, VAX-ll PASCAL offers an additional argument: 

e = error parameter 

These predeclared procedures are: 

FIND(f ,n,e) 

OPEN(f,parameters,e) 

PAGE (f ,e) 

PUT{f ,e) 

READ(f ,vl , . . . ,vn,e) 

READLN (f ,vl , . . . ,vn,e) 

RESET(f ,e) 

REWRITE(f ,e) 

WRITE (f ,pl , . . . ,pn,e) 

Whenever you see [ fa ttr ibute- 1 istl ] in a syntax description in the 
VAX-11 PASCAL language, it signifies that you can add certain 
arguments to the syntax depending on the type of circumstances. Note 
the following syntax and attribute descriptions: 

Attr ibute-1 ist 

[{identifier [[ ( { constant-expression },...) J },...] 

In the PASCAL-20 language, only a PROGRAM, MODULE, PROCEDURE, or 
FUNCTION can have an a ttr ibute- 1 ist . The only attribute for a PROGRAM 
or MODULE is OVERLAID. The only attributes for a PROCEDURE or 
FUNCTION are GLOBAL and FORTRAN. Note that in PASCAL-20 the GLOBAL 
attribute can not be followed by an identifier. 



F-3 



DIFFERENCES BETWEEN PASCAL-2n AND VAX-11 PASCAL 

Table F-2 lists additional predeclared functions that VAX-11 PASCAL 
provides but PASCAL-20 does not; 

Table F-2: Additional Predeclared Functions 

Category Function 



Boolean UFB(f) 

Transfer DBLE{x) 

QUAD(x) 
UINT(x) 
UROUND(r) 
UTRUNC( r) 

Dynamic Allocation ADDRESS (x) 

Character String INDEX(sl,s2) 

LENGTH (s) 
PAD(s,f ill,l) 
SUBSTR(s,b,l) 

Unsigned UNAD(ul,u2) 

UNOT(u) 
UOR(ul ,u2) 
UXOR(ul ,u2) 

Allocation Size SIZE (x ,cl , . . . ,cn) 

NEXT(x) 
BITSIZE(x) 
BITNEXT{x) 

Low_Level ADD_INTERLOCKED (e , v) 

Inte'rlocked SET_TNTERLOCKED (b) 

CLEAR_INTERLOCKED(b) 

Miscellaneous STATUS (f) 

If you plan to transport VAX~11 PASCAL programs to TOPS-20, or 
PASCAL-20 programs to VAX/V.MS, note the following: 

• The precision for INTEGER data type: 

TOPS-20 (-2**35) through (+2**35)-l 

-34359738368 through +34359738367 

VAX/VMS (~2**31)+1 through (+2**31)-1 

-2147483647 through +2147483647 

• The maximum number of items in an enumerated type: 
TOPS-20 Depends on amount of memory available 
VAX/VMS 6 5,5 35 

• PASCAL-20 has two procedures MARK and RELEASE that are used 
in conjunction with NEW and DISPOSE. VAX-11 PASCAL does not 
have MARK and RELEASE. 

If you have any further questions concerning VAX-11 PASCAL, refer to 
the VAX-11 PASCAL documentation set. 
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APPENDIX G 
PROCEDURE AND FUNCTION CALLING SEQUENCES 



This appendix 1 describes the calling sequences and conventions used 
by PASCAL for user-defined procedures and functions. This information 
is particularly useful in writing MACRO routines that interface with 
PASCAL programs. 



Note that, in this appendix, 
procedures and functions, 
explicitly noted. 



the word "procedure" refers to both 
Exceptions in the case of functions are 



G.l RUN-TIME STACK 

The majority of run-time information is kept on the stack; in 
particular, the stack contains all local variables, parameters, static 
and dynamic links ^ and return addresses for procedure calls. The 
stack pointer is kept in AC 17. A frame pointer, used for most 
variable accessing, is kept in AC 16. The frame pointer is fixed over 
the course of a procedure, while the stack pointer can change. Figure 
G-1 shows the status of the stack just after a PUSHJ to a procedure. 



AC -> 



//////////////////////// 

previous stack frame 
//////////////////////// 



AC17 -> 



parameter values, 
addresses, descriptors 



saved stack pointer 
caller's return address 



< — 



> — 



Figure G-1: Status of Stack After PUSHJ 



1 The information in this appendix is copyrighted by 
Moody § 1982. 



Scott Arthur 



G-1 



PROCEDURE AND FUNCTION CALLING SEQUENCES 



Figure G-2 shows the stack frame in its entirety, just prior to the 
first executable statement in a procedure. 



//////////////////////// 
previous stack frame 

//////////////////////// 



AC16 -> 



AC17 -> 



parameter values, 
addresses, descriptors 



saved stack pointer 
caller's return address 



dynamic link 
static link 



function value (if a 
function) 2 words 



local variables 
//////////////////////// 



oversized value 
parameters 



saved ACs 2-15 



size of conformant 
value parameter space 



conformant array value 
parameters 



next available stack 
space 



> — 



Figure G-2: Stack Frame 



G.2 MECHANICS OF A PROCEDURE CALL 

When PASCAL generates a call to a user-defined procedure, the 
following general sequence is followed; 

1. Save the current stack pointer in AC 0. 

2. Push the parameters onto the stack (see below, "Parameter 
Pa ssing") . 

3. Push the saved stack pointer onto the stack. 
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4. Copy the current frame pointer into AC 0. This is the 
dynamic link. 

5. Determine the frame pointer of the block lexically enclosing 
the called procedure, and copy it into AC 

o This is the static link. 

6. Call the procedure by means of a PUSHJ. 

After the called procedure returns, the stack is restored to its 

previous state. PASCAL expects the called procedure to preserve all 

accumulators except ACs and 1. (Note particularly that AC 16, the 

frame pointer, must be restored.) In the case of a function, the 

function value is returned in AC (ACs and 1 if the function is of 
type DOUBLE) . 



G.3 PARAMETER PASSING 

How a parameter is passed depends on what kind of parameter it is and, 
for a value parameter, how large it is. The five different methods 
used to pass parameters are: 

1. Value parameter by value 

2. Value parameter by address 

3. Reference (VAR) parameter 

4. Procedure/function parameter 

5. Conformant array parameter 

Each of these methods is described below. 



G.3.1 Value Parameter Passed By Value 

A value parameter passed by value is simply pushed onto the stack. 

This method is used for sets, DOUEiLE, and any type that fits into a 

single word, including integer, real,, char, pointers, scalars, and 
small packed arrays and records. 



G.3. 2 Value Parameter Passed By Address 

Any value parameter larger than one word, other than a DOUBLE or set 
parameter, is passed by address. The address of the parameter, 
without indirection or indexing, is pushed onto the stack. It is the 
responsibility of the called procedure to copy the parameter into its 
own local storage,, 
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G.3.3 Reference (VAR) Parameter 

Al ] VAR parameters are passed by address. The address of the 

parameter, without indirection or indexing, is pushed onto the stack. 

Thus, it is perfectly safe (and recommended) to access the contents of 
a VAR parameter using indirection. 



G.3.4 Procedure Or Function Parameter 

Procedures and functions, as parameters, are passed as two-word 
descriptors. The first word of the descriptor is the address of the 
procedure's entry point; the second is its static link. The static 
link is needed when the procedure is actually called (see above under 
"Mechanics of a Procedure Call"). 



G.3.5 Conformant Array Parameter 

A conformant array can be of any size; however, in order for 
parameters to have fixed offsets from the frame pointer, a fixed-size 
descriptor must be passed. This descriptor contains a fixed part of 
two words, and a variable part of three words for each conformant 
dimension. 

The fixed part contains the base address of the array in the first 
word. The second word contains the overall size of the passed array 
in words. 

Each three words of the variable part contain information on one 
conformant dimension. The second and third words contain the lower 
and upper bounds, respectively, on the index of the dimension. The 
first word contains the size of the dimension, which is the upper 
bound minus the lower bound plus one. 

The conformant array descriptor is the same for both value and VAR 
parameters. It is the responsibility of the called procedure to copy 
value conformant parameters into its own local storage. 
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G.4 PARAMETER ACCESSING EXAMPLE 

Figure G-3 gives an example of a typical external procedure 
declaration, followed by MACRO code showing how the various parameters 
can be accessed. 

F^' R C i;;: Ii U R E T e s t < f i r B t : n O U B L E ? y a F;; s e c o i ••. d : l N T E G E R ? t h .i. T' d : 1 N J E G E R ) ? t: X I' E R N A L J 



TEST J 



ENTRY 

MOVE 
MOVE I 
MOUE 
HOME 
DM0 VE 

♦ ♦ * 
MOVEM 

♦ ♦ ♦ 
F-'OF\.J 



TEST 

:Ly-2<17) 
2y(i?--3(;l7) 

2 y- 3 (1.7) 

3 y (3 ■•••3(17) 
4y -5(;l7) 



Figure G-3 



3y[^^3(:i7) 
1.7y 
External Procedure Declaration 



» n e f i n e a s i^ 1 o b 3 1 s y m b o 1 

yBsve AGs in local stor3.^e 

yOet vali.J€? of THIRD 

yOet address of SECOND 

yGet address of SECOND (alternate method) 

yOet value of SECOND 

yGet (2 -word) value of FIRST 

y F' e r f o r m c o in f u t a t :i. o n s 

y R e t I..I r n new v a 1 u e o f S El C N Ii 

yFs'estore ACs 

yF^eturn to caller 



Saving the ACs is not shown; they are assumed to be preserved in some 
static locations, not on the stack. The stack pointer is used for 
accessing the parameters. (If the ACs are saved on the stack, or if 
the stack is used for other purposes, then another AC should be set up 
for accessing parameters.) 

Offset (from AC 17) is the return address; offset -1 is the saved 
stack pointer. Therefore, offset -2 is the last parameter location. 
Since THIRD is an integer, it takes up only one word, and is accessed 
with an offset of -2. The next previous parameter, SECOND, is a VAR 
parameter, passed by address. The address is in the next previous 
word, at offset -3. FIRST is a double-precision real, taking up two 
words. Therefore, offset -4 is the second word of the parameter, and 
offset -5 is the first word. 



G.5 CONFORMANT ARRAY EXAMPLE 

Figure G-4 shows an example of an external procedure declaration with 
a conformant array parameter, and a picture of the stack after the 
call. The base address of the array is at offset -6; the length in 
words is at offset -5. The lower and upper bounds on the index are at 
offsets -3 and -2, respectively. The number of elements is at offset 
-4. 
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PROCEDURE Confar(VAR a: ARRAY r ] a . .ha : INTEGER] OF INTEGER); EXTERNAL; 



1 array base a 


ddress I 


1 si ze of a r ra 


y (words) I 


1 # elements 


(ha-la+1) 1 


1 lower bound 


(la) I 


1 upper bound 


(ha) 1 


1 saved stack 


pointer ! 


1 return address I 



-6(17) 
-5(17) 
-4(17) 
-3(17) 
-2 (17) 
-1 (17) 
0(17) 

Figure G-4 : Conformant Array Parameter 
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